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Future tech: 

SCANNING-IN SOFTWARE 
WITH BAR CODE READERS 


ESTIMATE YOUR HOME’S 

FUEL CONSUMPTION 

% ■: . '■ ' 0 

DOWNLOADING THE 
WEATHER 


A MULTI-FU2M& 
AMQXIVTMENT 



Rom the people 
who brought you... 


Five NEW programs 

designed for the 
businessperson. 

Each on its own cassette 
with interesting manual. 







You have made BUSIN ESSPAK+ an over- 
whelming success! Now, we are introducing 
five new programs for the Model 100. 

PCSG continues to be first in innovative 
programming for the businessperson using 
the TRS-80 Model 100 Computer. 

Look at these five new programs. 

DATA+ $59.95 

With DATA+ the Model 100 becomes virtually a 
true data base. You can input data rapidly from 
a 16 field screen that you make yourself like our 
PUT+. Here is the difference: 

REVIEW / Using function key 1 you can recall 
any record, by searching any field. 

EDIT / Change or update any record you select, 
instantly on the screen. 

LIST / Using function key 5 you can print add- 
ress labels, list records or selected fields of records 
in columns or other configurations. You can 
even pause, and reset left margins. 

MERGE / Function key 6 lets you merge. You 
can automatically print any fields of any records 
into forms or letters, wherever you designate. 

With all four of these functions you have full 
search and selection capability. 

With LIST and MERGE DATA+ remembers 
your favorite formats, quickly defaulting to them 
by simply pressing the ENTER key. The added 
feature BUILD lets you build and print a file of 
unrelated records that could not be selected 
either alphabetically or numerically. 

On cassette with excellent, easy to understand 
manual. 


TRS-80 Model 100 is a 

trademark of Tandy Corporation 

©1983 Portable Computer Support Group 


TYPE+ $59.95 

The Model 100 now becomes, with the addition 
of any printer, the finest, most feature rich, 
electronic typewriter available today. You can 
type directly to the paper. (Some printers have 
a one line buffer.) 

SCREEN BUFFER / To allow you to edit before 
printing, you can control the screen buffer from 
1 character to the last line. 

CENTER / Center on / center off controlled 
with function keys. 

MARGINS / Set margins with function keys. 
Audible end of carriage, automatic carriage 
return and function key Tab Set. 

DIRECT CONTROL / If your printer responds to 
backspace commands, you can backspace and 
overstrike. Paper advances with carriage return. 

With TYPE+, everything you print is stored 
simultaneously in a RAM file, formatted as you 
composed it. You can reprint instantly, or edit 
it in the file. On cassette with excellent, easy 
to understand manual. 

TUTOR+ $29.95 

Learn keyboard skills by playing a delightfully 
exciting game. While experiencing the thrills of 
a space invaders type game you become profic- 
ient at manipulating the keyboard. A game that 
forces you to learn touch typing, utilizing all 
the keys. On cassette with excellent, easy to 
understand manual. 

PCSG provides hotline software support 
for the Model 100. Give us a call at 
1-214-351-0564 . 


SORT2+ $29.95 

You can sort a file in place with SORT2+. It 
consumes only 1 k free memory, while sorting file 
in RAM you entered with PUT+ or DATA+. Our 
original SORT+ allows you to sort from cassette, 
but requires more memory while sorting. SORT2+ 
is for those times when memory or cassette sorting 
is a problem. SORT2+ also has upper case fold, 
and true numeric field sort. On cassette with 
excellent, easy to understand manual. 

TENKY+ $59.95 

With TENKY+ the numeric keypad on your Model 
100 emulates both a ten-key desk calculator, and a 
financial calculator. The right side of the screen 
represents the tape, which can also be directed to 
a file and/or a printer. Ten working registers are 
visible on the left of the screen, each one function- 
ing independently as a calculator with functions 
including exponentiation and logarithms. Registers 
are accessible from each other, including the tape 
which stores up to 120 values, each associated with 
a note of up to 26 characters. 

Financial functions available at the touch of a 
key include IRR, MIRR, and NPV on up to 120 
cash flows, plus any of its six annuity variables 
(n, PV, FV, PMT, i). Function key F2 gives a 
printed amortization schedule, and businessmen 
will love the breakeven analysis they can receive 
simply by pressing function key FI . 

Portable Computer Support Group is 
pleased to offer these program additions. 

We endeavor to continue as The Leaders in 
Software for the Mode! 1 00. 


PORTABLE GOMFUTER URORT GROUP 

11035 Harry Hines Blvd. No. 207, Dallas, TX 75229 
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From Computer Plus to YOU . . . 

PLUS after PLUS after PLUS 



D| IV rtlDE^T Here are just a few of our fine offers . 
Dii I L/llxCw I call TOLL FREE for full information. 


COMPUTERS 


PRINTERS 


DISK DRIVES 


ModeM2 64K1 Drive 

$2699 

Smith Corona TPI D.W. 

469 

R.S. Model 4 Drive 0 

515 

Model 12 64K 2 Drive 

3375 

Silver Reed EXP500 D.W. 

425 

Color Computer Drive 0 

329 

Model 4 16K 

849 

Silver Reed EXP550 D.W. 

645 

Color Computer Drive 1 

235 

Model 4 64K 


DaisyWheel II 

1745 

Primary Hard Disk M12 

2689 

2 Disk & RS232 

1699 

DWP210 

629 

Primary Hard Disk Mill 

1799 

Model 4 Portable 


DWP410 

1159 

ETC. 


64K 2 Disk 

1525 

CGP115 

159 

CCR-81 recorder 

52 

Color Computer II 16K 

145 

CGP220 InkJet 

545 

C.C. Joysticks (pair) 

22 

w/16K ext. basic 

210 

DMP100 

215 

16K Ram Chips 

25 

w/64K ext. basic 

305 

DMP120 

395 

64K Ram Chips 

75 

Pocket Computer 2 

165 

DMP200 

520 

8K Par/Par Microfaser 

135 

Model 16B IDr 256K 

4249 

DMP420 

735 

Printer Cables 
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4915 

DMP500 

1219 

Printer Stands 


Model 100 8K 
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DMP2100 

1745 

Printer Ribbons 


ModeMOO 24K 

835 

Gemini 10X 

315 

Printer Paper 


MODEMS 


Delta-10 

515 

Dust Covers 


Hayes Smartmodem II 

235 

Gemini 15 

425 

Computer Books 


Hayes Smartmodem 1200 

565 

CITOH Prowriter 

375 

R.S. Software 10% off list. 


Novation Smartcat 1200 

459 

CITOH Prowriter II 

649 

Send for listing of 


Novation J-Cat 

125 

Okidata 

CALL 

brand name software. 


R.S. AC-3 

129 

Epson 

CALL 



R.S. Modem 1 

89 





R.S. Modem II 

160 
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We have the lowest possible 
Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 


Prices subject to change without notice. 
Not responsible for typographical errors. 
TRS-80 Is a registered trademark of Tandy Corp. 


1 - 800 - 343-8124 
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Lprinl 

Sugarplums 

And 
Shakeouts: 
The Current State 


H ere we are, waiting for 1983 to 
become 1984, and, as is pro- 
bably appropriate, there are 
some thoughts at this end as the old year 
begins to take shape toward the new. 

Truth be it known, I really dislike 
people who somehow have the oppor- 
tunity to write such things as editor’s 
columns, pontificating about issues of 
all sorts. The truth of the matter is that 
we usually know less about the subject 
than most of you. And 1 am sure that, by 
and large, this is the case here. Neverthe- 
less, 1 hope that some of what 1 have to 
say may give you a little insight as to 
what we here at PCM think about the 
“current state of the computer industry” 
(now there’s a mouthful). 

We have been “treated” to people say- 
ing for quite some time that a “sha- 
keout” is due in the microcomputer 
world. We’ve essentially agreed with 
that, simply because there are too many 
machines out there, and too many poor 
ones, for the market to continue to sup- 
port them all. When someone buys a 
microcomputer for SI, 700 out of the 
box that I know won’t do what a $399 
computer will, it just stands to reason 
that a shakeout is coming. 

Yet, there were lots of heads being 
scratched when Osborne admitted it 
was in trouble some months ago. 
Osborne, the darling of the protable 
computer world! Yet, for all practical 
purposes, Osborne showed no growth, 
no improvement, and no permanent 
reduction in price (that should have 
been very possible) from the time it first 
caught on until the bad news went forth. 
Closer to home, similar announce- 


ments have come from the Atari and 
Texas Instruments camps. If you want 
to analyze all of this, it is pretty easy to 
see that the machines were unrealisti- 
cally priced (even when discounted) and 
short on features. And now, even from 
that bastion of computerdom, Cupper- 
tino, Calif., we hear things may not be 
well. After all, the Apple III was a disas- 
ter, LISA is not catching on and (to be 
honest) even Commodore has pretty 
well passed Apple by. If there’s a sha- 
keout, the Apple may not fall too far 
from the tree. 

Let’s if we may, contrast all this a 
moment to the news that greeted me (as 
a Tandy stockholder) in a very attrac- 
tive annual report that landed on my 
desk a few weeks ago. (You’ll be pleased 
to know that Tandy’s annual report 
cover was a reproduction of the Porta- 
ble Computer, embossed and in full 
color). In contrast to its competition, 
Tandy reported a substantial 24 percent 
increase in earnings for the fiscal year. 
We understand a great deal of that was 
due to computer sales. 

What does this all mean, aside from 
the fact that the people who work in 
Tandy Center certainly know what 
they’re doing? What I think it means is 
two things, both of them very important 
to you as an owner of a TRS-80 Porta- 
ble Computer. 

First of all, it means that your compu- 
ter system is going to be here to stay. 
That’s certainly good news. It is, because 
it means increased support from the 
manufacturer (Radio Shack), ability to 
get repairs made and availability of 


more things that will work with your 
Model 100. I realize that you can easily 
buy a T1 Home Computer for less than 
$50. But what happens 60 days from 
now when the thing goes on the blink? 1 
mean, they won’t be making that com- 
puter any more. 

Second of all, it means that you can 
count on increasing support from out- 
side vendors for products that will fur- 
ther enhance your Portable Computer. 
Over the next six months, how many 
people do you suppose will be introduc- 
ing new products for the Osborne? Not 
too many. Yet, with a growing (and 
profitable) system like the PoCo, I sus- 
pect you will see more and more firms 
offering more and more things in this 
marketplace. 

All of that simply bodes well for you 
and for your Portable Computer. And 
what it means is simply that even if you 
don’t have money invested in Tandy 
Corp., you profit by the good manage- 
ment the company enjoys. It is a nice 
thought for a new year. 

Another trend that we see for the 
future is more and more of what is being 
called “bundled” software. And, to 
some degree, we see it as a mixed 
blessing. 

Remember, your Portable Computer 
came with a “word processor,” a couple 
of “database managers,” and a “termi- 
nal program.” I don’t want to knock 
these programs, which are good as far as 
they go, but I do think that it is impor- 
tant to make some comments on the 
idea of “bundling” software with a com- 
puter. 

(LPRINT continued on Page 37) 


December 1983 PCM 5 


Letters 



MORE FROM MIKE 

Editor: 

I just received my October issue of PCM. 
Before I disappear for the evening behind its 
covers, let me say how much I appreciate to 
see the incorporation of many of the points I 
have recently written about — regarding ear- 
lier issues namely: 

1) A professional, business-like cover; 

2) Use of “M-100” instead of that general- 
ized (and childish) “PoCo;” 

3) BASIC Bytes — for starters; and 

4) Less games and frivolities. 

You are doing a great job of developing 
further use and understanding of the M 100 

and as you seem to listen so well, 1 have a 
few more suggestions! 

Monthly cover photos could each repres- 
ent new, serious uses of the M 100; for exam- 
ples, aviation, architecture, engineering, hos- 
pitals, shipping, etc. 

When you print a program such as on 
Page 34 — could you devise a code such as a 
small [8], to indicate how many spaces are 
required before entering text after quotation 
marks? It would save so much time (and 
errors) trying to count spaces to make a 
good screen or printer layout. Rainbow pro- 
grams for CoCo should use the same code. 
For the print FORMAT program, Lines 30 
to 80 would read: 30 [4]: 40 [9]: 50 [12]: 60 
[12]: 70 [12]: 80 [12]. Try to count your 


spaces without any ‘stars’ on Line 20! Keep a 
regular page or two of “Letters’— each with 
Editors or ‘expert’ comment ... we learn a 
lot from each other like this. Thanks again. 

Keep expanding the “Reviews.” Regards. 

Mike Walters 
Tracy, P.Q., Canada 


INFORMATION PLEASE 

Editor: 

The LPRINT section of PCM asked for 
comments about subscriber’s interests. My 
principal use of the 100 is as a communica- 
tion tool and word processing. I have not yet 
been able to work past all the “bugs” or my 
inept use of the 100, but I have no question 
of its ultimate usefulness to me. The points 
on which I would like information are: 

1) I have had three lock ups that were so 
serious that I had to revert to a cold start in 
order to use it again. The third lock up was 
not released by a cold start, it was partially 
released by a (CTRL/ PAUSE) and holding 
RESET. Even after this drastic step, the 
internal modem would not connect to an- 
other computer. I returned the 100 on war- 
ranty and by the time they returned it, it had 
corrected itself. 

2) I want to get a better word processing 
capability than the 100 offers. It is remarka- 
bly similar to the Color Scripsit in function. 
I have a CoCo and use the Nelson Super 
Color Writer as a word processor. This pro- 
gram runs circles around anything that RS 
has provided. I would like to have a similar 
program in the 100. If I could, effectively, 
interconnect the CoCo and the 100, it would 
be tremendously helpful. 

3) My concern about the word processor 
carries over to control of the printer. I have a 
RS Line Printer VIII, but the only control 
that the 100 exerts over this printer is the 
length of the lines. Again, a program with 
the capabilities of the Super Color Writer 
would be extremely valuable. 

This letter is being composed on a CoCo 
and printed on an RS Line Printer VIII. I 


would like to be able to make a direct con- 
nection between the two, but so far I have 
been unable to achieve that. In fairness to 
RS, I must say that 1 have not been able to 
spend very much time on it, but at the same 
time, the amount of information provided is 
totally inadequate to achieve this connec- 
tion. I have had good success in accessing the 
office computer by telephone. 

Any information that PCM can provide 
on these subjects would be appreciated. 

David E. Schlegel 
Moraga, CA 

Editor’s Note: 

The BusinesspakT by PCSC will 
solve your printer formatting prob- 
lems. To communicate between the 
CoCo and Model 100, all you need is 
software for the CoCo, such as Super 
Color Terminal and a cable described 
in PCM — August 1983 Page 9. 


BATTERY BUG 

Editor: 

First let me congratulate you on a wond- 
erful magazine; it is very informative. Sec- 
ondly, a comment about S AVEing things on 
tape with the M100. When I first tried 
SAVEing a text file, I kept getting errors 
that I never had experienced before while 
working with my husband’s CoCo. After 
several frustrating hours working with M 1 00 
and the manual, my husband suggested that 
I work with both the tape player and M 100 
on batteries. I tried both on batteries all 
around and ta-daa!! it worked. The manual 
does not mention anything about this sit- 
uation coming up, so 1 thought that this 
information might be of use to all those 
M 100 users out there. 

Also, congratulations on a great Rain- 
6ovcfest in Forth Worth! As I mentioned, we 
do have a CoCo as well as my M 100. Next 
question is when and where will the first 
M lOOfest be? 

Kerri Arnold 
Dallas, Texas 



Improves Viewing and Typing Angle 


Briefcase Portable 


Mail Check or Money Order to: DISKUS PRODUCTS 6003 Bandini Blvd., Los Angeles, CA 90040. VISA or M/C call 
(213) 726-3088 The POCO STAND $17.95 plus $2.00 each unit Shipping & Handling — CA residents add 6.5% sales tax. 
Patent Pending. © 1983 DISKUS PRODUCTS For RUSH Delivery add $2. 00 extra - U.P.S. Blue Label 
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Ask your dealer for the Porta™ series 
from Skyline — to help you work faster and better! 

PortaCalc™ — Model 100 “electronic spreadsheet” with 14 column by 26 row workspace! 
Full use of the built-in function keys to save, load, screen print, report print, or to look 
behind the data at the formulas in use. 

Full arithmetic operators including exponentiation, absolute value, integer, summation, 
and averaging. Calculations are done to 14 digits of precision and displayed up to 9 
digits. User selectable decimal place from none through seven — not just one, two, or 
floating! Formula replication is included to allow fast creation of worksheets. 

Worksheets may be saved, loaded, or merged using the computer’s memory or 
cassette. Often used templates can be saved in memory for instant recall. 

Two powerful utility programs are included with PortaCalc at no extra 
charge! PortaDex™ is a data exchange program that allows reformatting 
PortaCalc files into the DIF format used by VisiCalc. PortaPrint™ is an 
enhancement to the Model 100’s text editor, adding the ability to adjust 
left, right, and top margins, and page length. Page numbering, headers, 
centered lines, flush right justification, new page control, and more. 

Comes with extensive documentation in padded 3-ring binder. Includes 
tutorial, detailed reference section, and executive level sample templates. 

Fully illustrated with screen prints, examples, and hints. 

PortaStat™ — Correlation, regression analysis, and descriptive statistics 
package, designed to be a working tool for today’s businessman. 

Data can be input from cassette, memory, or keyboard. Interactive with 
PortaCalc data files! Thoroughly documented, includes tutorial. 

PortaFin™ —Present value, net present value, future value, annuities, 
interest factors, loan constants, internal rate of return and more! This user- 
friendly package prompts you for the needed input data, then gives you 
the answer to your loan or investment problem! Interactive with PortaCalc 
files, allowing you to “read” cash flow data from memory. Keyboard or 
cassette input also available. 

PortaA/lax ™ — The powerful ‘simplex’ method of linear programming. Find 
the optimum ‘mix’ for a given set of constraints. Interacts with PortaCalc 
files to avoid time-wasting repetitive data entry. Tutorial, examples, and 
bibliography included. 

PortaFolio™ — Stock and bond valuation, betas, Macaulay’s duration, yield 
to maturity, bond swap calculations, and much more. All in an easy to use 
program, interactive with PortaCalc data files. Supplied with comprehensive 
instructions and reference manual. 


All Porta series programs are supplied on cassette and require 24K RAM. 
Pricing — PortaCalc is $69.95, all others are $44.95 each. 

If ordering direct, add $2.00 shipping and handling per order. 

Dealer inquires invited. 


mi 
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4510 W. Irving Park Rd. • Chicago, IL 60641 • (312) 286-0762 


PortaCalc 


Basic Byt es 

Program 

Control 

By Richard A. White 
PCM Contributing Editor 


P rogram control is nothing more 
than decision making and then 
taking appropriate actions after 
the decision. To make a decision, the 
program must make some sort of test. 
The result of any single test a computer 
makes is either a true or a false answer. 
Remember, it’s a binary beast even 
when talking BASIC. If you had only 
IF/ THEN in your BASIC you still could 
write any program you wanted. Other 
control statements like FOR T 0/ N EXT, 
ELSE, ON/GOSUB and ON/ GOTO 
provide for simplicity, speed and effi- 
cient use of memory. In this article, we 
will compare them and suggest ways to 
use them that you may not have thought 
about. 

IF A=B THEN 100. This is perhaps 
the simplest of statements — it means 
just about what it says. IF A=B GOTO 
100 is also acceptable BASIC and means 
the same thing. The 100 refers to Line 
100 in either case. If A does not equal B 
then go to a subroutine, then write IF 
A=B THEN GOSUB 1000 works also 
but why keep the unneeded THEN 
around to take up memory space. 

Any group of statements and func- 
tions may follow a THEN. For exam- 
ple, IF A=BTHEN CLS : PRINT AS A 
: SOUND 100,10 : GOTO 100. For the 
actions following the THEN to take 
place it must be TRUE that A=B. When 


Dick White has been programming in 
BASIC for over three years, and has a 
number of programs on the market for 
the Color Computer . He is also a col- 
umnist for the Rainbow, PC M’s sister 
publication, and is a member of CIN- 
TUG, the Cincinnati TRS-80 Users’ 
Group 


it is FALSE that A=B, you will want 
some other action. With ELSE, this 
action can be placed in the same line of 
code. In most cases this leads to pro- 
gram clarity and simplicity. Our exam- 
ple is IF A=B THEN CLS . PRINT AS 
A : SOUND 100,10 : GOTO 100 ELSE 
CLS : PRINT“NOT EQUAL”: SOUND 
50,10. Note that colons are NOT used 
on either side of THEN and ELSE. If 
you want to waste memory you can put 
them in — they will do nothing else for 
you. The ability that ELSE gives you to 
choose one piece of code or another is 
extremely powerful. Without ELSE you 
would be reduced to using IF/THEN 
mainly to route the program to lines 
where the needed code would be placed 
rather than executing the code directly. 
This of necessity would locate the code 
remote from the text calling it. Program 
clarity is significantly reduced, speed is 
reduced and memory usage is increased. 
Instances when you will want to branch 
to remote lines are when you are going 
to major program routines or are going 
to subroutines used by other portions of 
your program. 

IF/THENs can be nested, that is one 
following another in the same line with 
or without intervening code. Following 
are some lines to help show the relation- 
ships of the keywords to one another. 

IF (Test I) THEN (if Test I is true) 
IF (Test 2) THEN (if Test 2 is true 
ACTION A) 

ELSE (if Test 2 is false ACTION 

B) 

ELSE (if Test 1 is false ACTION C). 

The second IF is inset under the first 
THEN that it follows. Each ELSE is 
placed under the IF that refers to it. An 
ELSE will be related to the closest IF 


that does not have an ELSE. If the 
ELSE under the second IF were removed, 
then the remaining ELSE would auto- 
matically be associated with that IF 
even though it is followed by code relat- 
ing to the first IF. If you had no 
ACTION B in the event that Test 2 is 
False, put the ELSE in anyway so that 
ACTION C will occur when Test I is 
false. 

IF (Test 1) THEN (if Test 1 is true) 
IF (Test 2) TH EN (if Test 2 is true 
ACTION A) 

ELSE 

ELSE (if Test 1 is false ACTION C). 

You can test for many things after an 
IF. These include A less than B ( A< B), 
A less than or equal B (A <= B), A not 
equal B (A <> B), A greater than B (A 

> B), or A greater than or equal B ( A >= 
B). Of course, both sides need not be 
variables. A > 0, or B = 5 are quite 
acceptable. You can do the same tests 
on strings like A$ = “GOLIATH” or AS 

> “DAVID”. Let’s assume that AS = 
“GOLIATH”. You might agree that AS 
>“DAVID”is TRUE since GOLIATH 
is a somewhat larger man than DAVID. 
Others might point out that David 
killed Goliath and in that sense AS > 
“DAVID” is FALSE. Your Model 100 
could care less about this hogwash and 
looks only at the ASCII values for “G” 
and“D.” In ASCII terms, “D” is 68, “G” 
is 7 1 , 7 1 is bigger than 68. The matter is 
settled right there and “GOLIATH” is 
greater than “DAVID.” If PoCo had to 
choose between “GOLIATH” and 
“GRASS,” it would go on to the second 
letter to find a separation. 

Up to now things have been straight- 
forward in that one test was made and 
one or another action taken depending 
on whether that test proved true or 
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false. Real life, even in a computer, is 
that a number of conditions need be met 
for some action to take place. IF 1 can 
find $1000 AND convince my wife that 
it is necessary, THEN I will buy a 
MODEL 100. Well, those who wrote 
our BASIC saw to it that we would have 
ways to make decisions based on a 
number of test. We have already dis- 
cussed one way. IF (Test 1) THEN IF 
(Test 2) THEN (Action). Alternately, 
this can be written IF (Test 1) AND 
(Test 2) THEN (Action). In BASIC this 
might be IF A = B AND A$> “DAVID” 
THEN PRINT“SUBSCRIBETO PCM 
Magazine”. To muddy the waters more, 
even this will work: IF A = B AND A$> 
“DAVID” OR C > 28 THEN PRINT 
“SUBSCRIBE TO PCM Magazine”. 
See the OR? If C were the contents of 
your bank account and it were greater 
than $28 then the message “SU BSCR I BE 
TO PCM Magazine” would be printed 
irrespective of whether A = B or GOLI- 
ATH is greater than DAVID. Tests can 
be strung together with ANDand OR in 
almost any conceivable way, which makes 
them powerful tools in the programmer’s 
bag of tricks. 


As noted, IF/THEN/ ELSE can do 
all program control. So why use FOR/ 
TO/ NEXT? It’s easier. All you and the 
program need to know about the loop 
are right up there in the line heading up 
the loop. FOR/ TO/ NEXT is faster 
since BASIC knows up front what you 
want and can use the most efficient 
machine language coding to get it done. 
In the 1F/THEN approach above, the 
basic interperter never knows it is doing 
loops. Here is the basic syntax of 
FOR/TO/STEP/NEXT. 

FOR (variable & initial value) TO 
(limit value) STEP (value) 


NEXT 

The initial value, limit value and step 
value may be positive, negative, integer 
or decimal. Looping continues as long 
as the variable remains less than (or 
more than) the limit value. Any of the 
following are valid. 

FOR C = 1 TO 10 . . . NEXT 

FOR C = 132.769 TO 133.543 STEP 


.008 . . . NEXT 

FOR C = 1 000 TO -732 STEP -200 . . . 

NEXT 

FOR C = -1 TO -10 STEP -I . . . 

NEXT 

FORC= 1E1 TO 1E35 STEP9E10 . . . 

NEXT 

FOR C = 0 TOO . . . NEXT 

Without STEP, BASIC assumed an 
increment of 4-1 , which is a very typical 
case. Otherwise there is nothing special 
about STEPing. Just make sure you 
STEP in the right direction to get from 
the initial value to the limit one. No 
matter what the values assigned, a FOR/ 
TO/ NEXT loop is always executed at 
least once. It is necessary for the pro- 
gram to get to NEXT before any test is 
made. In some listings, you will see the 
variable name after NEXT like NEXT 
C. No you don’t see it above. The com- 
puter knows full well which variable it is 
dealing with and doesn’t need the pro- 
grammer telling it. From a program- 
ming clarity viewpoint a case can be 
made for documenting the NEXT with 
its associated variable. And some peo- 
ple feel strongly that good program- 
ming structure requires that variables 
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be associated with NEXTs if some let- 
ters to editors are to be believed. 1 feel 
that if your other programming practi- 
ces are sound, variables after NEXTs 
are a pain and waste of bytes. 

BASIC stores the location of the start 
of the FOR/TO/NEXT loop on the 
microprocessor’s stack in memory. When 
the program exits normally, these mem- 
ory locations are cleared for other uses. 
When a FOR/TO/NEXT loop is ab- 
normally exited, these memory loca- 
tions are not cleared. There are occa- 
sions when early departure from a loop 
is needed. There are a number or ways 
to do this. When this is done, there 
should be code to set the count variable 
to a number equal or higher than the 
limit value and follow this with a NEXT 
in order to clear the stack. Here is an 
example. 

100 FOR C = 0 TO X : IF Y > Z 
THEN C = X : NEXT : GOTO 200 

1 10 ’ CODE IN THE LOOP 

120 NEXT 

130 ’ CODE FOLLOWING THE 
LOOP 

There are times when it is not desira- 
ble to go through the loop even once. In 
our BASIC you must test the governing 
condition and jump around the FOR/- 
TO/NEXT code or abandon FOR /- 
TO/ NEXT writing your own loop con- 
trol with IF/THEN. Here is one ap- 
proach. 

100 A = 1 

105 IF A>X GOTO 150 

110 ’LOOP CODE 


140 A=A+l:GOTO 105 

One reason to need to do this would 
be if you were taking a series of strings 
apart, perhaps for printing fields of 
records. If the user had put no data in 
yet and X = 0, but made the mistake of 
trying to print, a SN Error would greet 
their efforts as soon as the program 
tried to take an empty string apart. 
Now, no programmer wants a user to be 
greeted with an SN Error — ever. So 
constructions like the above are neces- 
sary now and then. Some languages and 
dialects provide alternate statements 
like DO/ UNTIL that test first and then 
act. What is most important is to know 
what the characteristics of your lan- 
guage are and use them to best advan- 
tage. The grass may look greener over 


the PASCAL fence. That does not 
mean its better grass. And while we are 
at it, you should be aware that the same 
keywords may act differently in another 
language. IF/THEN / ELSE seems to be 
one of the few constants. 

Two other program control statements 
in Model 100 BASIC are ON Z GOSUB 
and ON Z GOTO. Z is a number start- 
ing with 1 which tells the computer to 
count to a specific line number listed 
after the GOSUB or GOTO and go to 
that line. Here is some code from an 
editor program for an example of a 
super use of ON/GOSUB. 

60 INPUT C$ 

80 B=INSTR(1, “NnliTtDdFfEeXx 
RrLlPpGgCcUu2Kk A”,C$) 

90 ON B GOSUB 370, 370, 410, 410, 
450, 450, 460, 460, 470, 470, 540, 
540, 620, 620, 640, 640, 650, 650, 
720, 720, 780, 780, 870, 870, 1 140, 
1140, 1160, 1200, 1200, 1300, 225 
215 IFC$=“M”ORC$=“m’THENK$= 
TX$(CL):GOSUB620 
220 RETURN 

This code does the same thing as a 
series of IF/THEN lines like we dis- 
cussed before, but does it in one third 
the time. Further, it uses half the num- 
ber of bytes that a series of IF/ THEN 
statements does. The INSTR statement 
in Line 80 hunts through the string of 
characters trying to find a match for the 
character in C$. If it finds a match, the 
test is successful and it puts the count up 
the string in B. In ON B GOSUB, the 
computer counts up line numbers to the 
number in B and makes a subroutine 
call to that line number. Obviously the 
INSTR-ON B . . . technique is quite 
effective here. If you only had three or 
four characters or values to test, IF/ 
THEN would be preferred. 

The five interrupt definition commands 
are variations of ON/GOSUB and ON/ 
GOTO. Unfortunately, you don’t have 
a choice of GOTO or GOSUB, but must 
use the form associated with the particu- 
lar interrupt. For example, ON KEY 
GOSUB . . . calls a numbered subrou- 
tine depending on which key is pressed. 
You need enable only those keys you 
wish to use. At first glance this would 
seem great to use for making menu cho- 
ices. When you want to choose one pro- 
gram function or another and can con- 
veniently put the code modules up as 
subroutines, this is the best way to go. 
However, if you want to use the func- 
tion keys to enter choices within a 
module, you may have troubles. 


Here is a neat little cul-de-sac you 
might get into. Y our program is sent off 
to an input module using a function key. 
You would like to have one of the func- 
tion keys defined as a return to send the 
program back from the subroutine. Y ou 
cannot use ON KEY GOSUB to send 
the program to a line with a RETURN 
since the RETURN will send you right 
back to the place where you were when 
the function key was pressed. So, why 
not send the program to the start-of- 
menu line and forget about a RETURN. 
You could do this using the GOSUB 
like a GOTO for a while. After a 
GOSUB call, how does the computer 
know where to return? It stored where it 
was in the program in a RAM area 
called the stack before it went to the 
subroutine. Ifyoudonot use a RETURN, 
the return address stays on the stack. If 
you use a bunch of GOSUBs without 
RETU RNs, return addresses keep build- 
ing up in the stack. The only way to 
clear the stack is to use a RETURN. 
Taken to the extreme, the program will 
run out of memory and crash. 

I have not found a way out of this 
box. For now, ON KEY GOSUB must 
be used for subroutine calls only where 
you want to return to the line where you 
were when the function key was pressed. 
Here is a sample of code. 

1000 CLS: ON KEY GOSUB 100, 
200, 300, 400,,, 800 

1005 KEY (l)ON: KEY(2)ON: KEY 
(3) ON: KEY (4)ON: KEY (7) 
ON 

1010 PRINT@0, “MENU CHOICES...” 
1020 GOTO 1010 

Line 1000 defines which subroutines 
refer to which function keys. Note that 
keys one through four have lines to go 
to, five and six don’t so they are unde- 
fined. Key seven is defined while key 
eight is not. In Line 1005, these keys are 
turned on. Keys and other interrupts are 
turned off when a BASIC program is run. 
KEY ON turns all keys on while KEY 
OFF turns them all off. Line 1010 prints 
the numbered choices to the screen in a 
format of your choice. The program 
then loops, continually printing the menu 
until an active function key is pressed. 
This sends it to the subroutine starting 
at the listed line number. When the sub- 
routine’s work is completed, use a CLS: 
RETURN to clear the screen and return 
the program into the menu loop. 

The MDM, modem and TIMES inter- 
rupts work in the same way except the 
source of the interrupt is either data 
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received over the modem or the compu- 
ter clock equalling a time set in a string. 
What might these be good for? Why not 
an alarm clock program? Here is how 
you could write the program in conven- 
tional BASIC, ie without the interrupt. 

10CLS: PRINT@0,TIME$ 

20 PRINT”ENTER WAKEUPT1ME 
IN FORM 06:30:00: INPUT 
WAKEUPS 

30 CLS: POWER CONT 

40 PRINT© 0, TIMES: IF TIMES 
=WAKEUP$ THEN 50 ELSE 40 

50 POWER 100 

60 PRINT@0, TIMES: SOUND 
9394,20: SOUND 4697,20: GO 
TO60 

The screen is cleared, current time 
printed and then the program asks for 
the wakeup time. Note this must be in 
the format specified. In Line 30 we give 
a POWER CONT to keep the computer 
from automatically turning off. If you 
do use this as an alarm, you had better 
be running PoCo off your adapter. Line 
40 turns PoCo into a clock, continu- 
ously updating the time and checking to 
see if the time equals the wakeup time 


entered. When a match is obtained, the 
program goes to Line 50 to reset the 
POWER off delay and then to Line 60 
to sound the alarm. The user uses the 
pause/ break key to stop the alarm. 

Below is the same program using the 
TIMES interrupt. The IF/THEN/ ELSE 
statement in Line 40 has been replaced 
by the ON TIMES . . . GOSUB and 
TIMES ON in Line 30. The program 
loops in Line 40 until T1ME$=WAKE- 
UPS and then goes to the subroutine 
starting in Line 50. 

The only real difference is that the 
interrupt is active while the program is 
off in other lines of the program. It’s an 
always-there IF/THEN. 

10 CLS: PRINT@0, TIMES 

20 PRINT”ENTER WAKEUPT1ME 
IN FORM 06:30:00: INPUT 
WAKEUPS 

30 CLS:POWER CONT: ON TIME 
$=WAKEUP$ GOSUB 50: 
TIMES ON 

40 PRINT@0,TIME$: GOTO40 

50 POWER 100 

60 PRINT@0,TIME$: SOUND 
9394,20: SOUND 4697,20: 

GOTO 60 


I will not go into the ON MDM/ 
GOSUB routine other than to suggest 
that someone write a two-computer 
game where the computers are continu- 
ally updating each other over the phone. 
Everything you need is there in PoCo 
basic. Likewise, 1 will pass for now on 
ON ERROR GOTO. This is over long 
already. 

To summarize, program control is 
accomplished with statements that per- 
form one or more tests and take actions 
based on whether true of false results 
are obtained for each test. What action 
takes place depends on how the pro- 
grammer writes the statements. The 
control tools in Model 100 BASIC are 
IF/THEN/ ELSE, FOR/TO/STEP/ 
NEXT, ON GOTO and ON GOSUB 
and the interrupt routines. IF/THEN 
/ ELSE is extremely powerful and could 
be used alone without seriously limiting 
one’s ability to write complex programs. 
The other statements provide for pro- 
gram clarity, speed and economy of 
memory. Each has its place, so serious 
programmers learn to use each to best 
advantage through in-depth understand- 
ing ol each. i.tj.ti 
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On The Road 


A Time 
to 

Take Stock 

By Robert Frowenfeld 
PCM Contributing Editor 



W ell, it’s that time of year 
again — December. And while 
most of us spend the month of 
December wondering what Santa is 
going to drop down our chimney, there 
are lots of folks out there in PCM land 
that look at the end of the year as the 
beginning of getting their paperwork in 
order for the Tax Man. If you engage in 
the ups and downs of Wall Street, you 
are inevitably bombarded with a deluge 
of transaction slips from your various 
buy and sell orders. Moreover, keeping 
track of which stocks you own or have 
bought or sold during the course of the 
year can sometimes be an onerous task 
indeed, and although April 15 is a long 
way off, there’s no better time than the 
present to get our capital gains (and 
losses) in order. Our On The Road pro- 
gram this month will let you keep track 
of all your stock purchases and sales 
and, at the same time, keep a permanent 
record of your stock portfolio. 

The name 1 have given to this pro- 
gram is PORT. BA, which is short for 
PORTfolio. I like it because it simplifies 
my record keeping while it lets me keep 
track of my investments whenever I’m 
out of town. But where it really shines is 
when it comes time to analyze my prof- 
its and (alas!) losses at the end of the 
year. 

So let’s get started! When you run 
PORT, the main menu lists the various 
functions available (see Figure 1 ). These 
functions permit you to: enter a stock 
transaction, display your trading activ- 
ity in a particular security, and display 
your current position for any one, or all 
stocks in your portfolio. 


The first function. Enter T ransaction, 
is the key to this program. By maintain- 
ing a database of all stock purchases 
and sales, your portable companion can 
instantly provide you with the informa- 
tion you need about your investments. 
Incidentally, PORT uses a data file 
named “PORT. DO” to maintain all 
your stock trades. By using a document 
file, you can (if you so desire) edit this 
file by using the TEXT program sup- 
plied with your Model 100. Therefore, if 
you should ever discover that you have 
made an error in a transaction entry, 
making the necessary corrections should 
be a simple matter. 

Referring to Figure 2, we see that 
PORT maintains the following infor- 
mation for each security’s trade: date, 
stock ID, number of shares traded, 
price per share, whether the trade is a 
buy or sell transaction, and the broker- 
age commission incurred. Figure 3 
shows how your screen would look for a 
purchase of 200 shares of Tandy Corpo- 
ration stock at a price of 35!/$ and a 
commission of $50; note the Stock ID 
symbol is TAN — this is the New York 
Stock Exchange symbol for Tandy 
Corporation. When telling your Model 
100 that the trade is a purchase, you 
must respond with a “B”for buy or, for 
a sale, and “S.” Also, you must be sure 
to enter the Stock ID in uppercase, or 
PORT will not accept it as valid data. 

Once you have completed the trans- 
action input, you are prompted to acknow- 
ledge that this is a correct entry. Review 
your typed input, and if it is not correct, 
enter an “N” and PORT will allow you 
to start over. If everything is okay, type 


a “Y” and the transaction will be re- 
corded. Keeping track of the trade date 
is very important because when it comes 
time to sell your stock, you will have to 
know whether the gain (or loss) is long 
term or short term. For those of you 
who aren’t aware of this significance, a 
short explanation is in order. 

As you know, a capital gain becomes 
long term if held a year and a day. The 
end of the year can provide some 
money-making opportunities if you are 
trying to minimize your tax liability. 
Therefore, knowing which stocks you 
own (and when you purchased them) is 
an absolute necessity. For example, if 
you have already made some money this 
year in the stock market and you want 
to reduce your income taxes, the smart 
play is to sell a security that you own 
that has lost money, preferably one that 
you have held less than a year. By utiliz- 
ing the second function of PORT (as 
we’ll see in a moment), we can easily 
keep track of the purchase (and sale 
dates) of any security. 

After the entry of a transaction, 
PORT will clear the screen and make 
itself ready for another entry. If there 
are no more entries to be made, simply 
press the “FI” function key in the 
extreme upper-left of your keyboard — 
that will return you to the main menu. 

The second function of PORT, Indi- 
vidual Stock Activity, allows you to 
display all activity for a particular stock. 
As with the Enter Transaction function, 
you must enter the stock symbol in 
uppercase. Figure 4 is a display of a 
sample PORT.DO data file. Let’s say 
we wanted a complete listing of all trans- 
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actions for IBM. After typing in the stock symbol IBM, 
PORT asks if the information is to be sent to an attached 
printer. If we were to respond with an “N,”then the output is 
sent only to the display, conveniently pausing every five 
entries so we can review the activity. Each line of output lists 

Stock Portfolio Manager 

1 Enter Transaction 

2 Individual Stock Activity 

3 Open Position 

4 End Program 

Enter Transaction 

: Buy / Sell: 

D : Commission: 

0 

Price/Shr : 

Press FI to Exit 
Figure 3 Enter Transaction 


Figure 1 


Figure 2 


Date 

Stock 

Shares 


Date : 10/31/83 Buy / Sells B 

Stock ID s TAN Commi ssi on : 50 . 00 

Shares : 200 

Price/Shr : 35.5 

Entry Correct ( Y/N) s 


the trade date, whether the trade was a purchase or a sale, 
the number of shares bought (or sold), the price per share, 
and the commission. If “Y” is entered in response to the 
printer query, then the output also goes to the printer with- 
out pausing (see Figure 5). At the end of the listing (whether 
printed output is requested or not), PORT lets us know the 
total number of transactions in the database and if the 
position is long or short. When you own a stock, you have a 
long position. If you think a stock is going to go down, then 
you might sell the stock without actually owning it, hoping 
to buy it back later at a lower price. In that instance, you 
have a short position in the stock. 

Once the listing of the transations is completed, you are 
requested to enter another stock symbol. Here, as before, 
pressing the “FI” key will return you to the main menu. 

The last function of PORT allows you to instantly find 
your open position (long or short) for a particular stock. As 
with the Individual Stock Activity function, this one 
requires only that you type in the stock symbol. PORT then 
quickly looks at all your transactions and determines how 
many shares of stock you own (or are short). A real handy 
feature of this function is the ability to display (or list) the 
position of all securities on file. When prompted to enter the 
stock symbol, a response of an asterisk (*) will cause all 
security positions to be displayed. Additionally, there is an 
option to send the output to the printer (see Figure 6). If no 
printed output is desired, then PORT will again convenien- 
tly pause after the screen is filled so you can review the 
information. 

Well, there you have it, a nice little Christmas (or Hanuk- 
kah) present for all you Wall Street money moguls. May the 
new year bring you the bullish profits that only your Porta- 
ble Computer can record! 


Figure 4 

Listing of file “PORT.DO” 


"1/5/83", 

" B" , " IBM" , 100 

95.75 25 

"3/18/83" 

, " B " , " T AN " , 200 

45 32.5 

"3/29/83" 

, " B " , “ L I L " , 300 

15.875 

56.75 

"4/15/83" 

, " B " , " I BM " , 100 

105.5 

37 

"5/25/83” 

, "S IBM" , 100 

110.25 

25 

"6/13/83" 

, " B " , " T " , 200 62. 75 42.65 

"8/24/83" 

,"8", "DEC", 400 

105 153.80 

"10/31/83 

" , "B" , "TAN" , 200 

35.5 

50 

Figure 5 

Stock : IBM 



Date Buy/Sell Shares 

$/Shar e 

Comm . 

6 "1/5/83 

Bought 100.00 

95.750 

25.00 

4/15/83 

Bought 100.00 

105.500 

37.00 

5/25/83 

Sold 100.00 

110.250 

25.00 

Total : 3 Transactions 



100 

Shares LONG 



Figure 6 




Stock Shares Pos. Stock 

Shares 

Pos. 

IBM 

100 Long TAN 

400 

Long 

LIL 

300 Long T 

200 

Long 

DEC 

400 Short 
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improve your performance at the track — and we mean 
at the track! The Handicapper comes with separate 
programs for thoroughbred and harness tracks that 
apply sound handicapping techniques to produce 
rankings for the horses in each race. Use information 
readily available in the Racing Form or harness track 
program. Factors include speed, distance, track condi- 
tion, post position, past performance, jockey or driv- 
er's record and other attributes. Use it at home the 
night before or tote it with you to the track and hand- 
icap between races! Handicap an entire race in a few 
minutes and a whole card in less than an hour! List 
rankings to screen or printer. 24K version even builds a 
RAM file forthe entirecard! Includes harness and thor- 
oughbred programs, complete documentation and 
betting guide. State memory requirement when 
ordering. Only $49.95. 


Federal Hill Software 
825 William St. 
Baltimore, Md. 21230 
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The listing: 

1 CLEAR 1000: DEFINT I-N: DEFSTR A,R,U 

2 BLt=STR I NGt ( 38 , " ") 

5 ESt=CHRt (27) : R=ESt+ "p " : U=ESt + " q" : GOTO 
35 

6 LINEINPUT INt: X=VAL < INt) : IF TH 

EN Y=ASC ( INt) : RETURN ELSE RETURN 

35 DIM A ( 100) , X (100) 

40 FIt="PORT.DO" 

50 DATA"Enter Transaction" , "Individual S 
tock Activity", "Open Posi tion" , "End Prog 
ram" 

51 FOR 1=1 TO 4 : READ M0t(I):NEXT I 
60 KEY 1," "+CHRt (13) 

70 Hlt=" Date Buy/Sell Shares t/Shar 
e Comma 

71 61t="\ \ \ \ #####.*« «««.#* 

* ##*.«# 

72 H2t="Stock Shares Pos. 

73 G2t="\ \ ######" 

74 H3t= " - 

75 H 4 1 = " - 


100 CLS:PRINT09, "Stock Portfolio Manager 

ll 

105 CLOSE 

110 FOR 1=1 TO 4:PRINT045+I*40,R; I;U" "M 

0t ( I ) ; : NEXT I 

115 PRINT0289, "Select: "; 

120 A=INPUTt ( 1 ) : FX=VAL (A) : IF FX< 1 OR FX> 
4 THEN 120 

130 ON FX GOTO 1000,2000,3000,4000 
200 CLS: J=LEN(M0t(FX) ) : PRINTTAB (20-J/2) ; 
M0t (FX) : RETURN 

300 OPEN F I $ FOR INPUT AS 1 : RETURN 
400 PRINT0290, "Press "R" FI ”U" to Exit" 
5 : RETURN 
500 PRINT 

510 PRINT0286 , “Press any key to continue 
: ";:A=INPUTt(l): RETURN 
600 'heading 

610 CLS:PRINTH2t;H2t;:PRINT040,H3t;H3t:P 

RINT080 , " " 5 : IF PRt="Y" THEN LPRINT H2t; H 

2$: LPRINT H3t;H3t 

620 RETURN 

700 'all stocks 

703 PRt="N":PRINT0208,"Send to printer ( 
Y/N): ";:A=INPUTt(l):PRINT0200,BLt;:IF A 
="N" OR A="n"THEN 705 ELSE IF A="Y" OR A 
= " y " THEN 704 ELSE 703 

704 PRt=" Y" 

705 IX=0 

710 IF EOF ( 1 ) THEN 770 

720 INPUT#l,DTt,BSt,IDt,SH,PR,CM 

730 IF IX=0 THEN 745 

740 FOR 1 = 1 TO I X : IF A(I)=IDt THEN J = I:G 

0T0 755 ELSE NEXT I 

745 IX=IX+1 

750 A ( I X ) = IDt: J = I X 

755 IF BSt="B" THEN X(J)=X(J)+SH ELSE X< 
J)*X <J)-SH 
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760 GOTO 710 
770 GOSUB 600 

780 FOR 1=1 TO IX STEP 2:PRINT USING G2t 
} A < I ) ; ABS ( X ( I ) ) ; : IF PRt="Y" THEN LPRINT 
USING G2t; A ( I ) 5 ABS ( X ( I ) ) ; 

782 A="None" : IF X(I)<0 THEN A=“Short" EL 
SE IF X < I ) >0 THEN A="Long" 

785 PRINT USING" \ \";A;:PRINT TAB(20 
) ; s IF PRt=" Y" THEN LPRINT USING" \ \" 

j A; : LPRINT TAB (20) ; 

790 IF I = I X THEN 798 

792 PRINT USING G2t; A ( 1+1 > ; ABS < X < 1+1 ) ) ; : 
IF PRt=" Y" THEN LPRINT USING G2t;A(I+l); 
ABS ( X ( I + 1 ) > j 

793 A="None" : IF XU + 1X0 THEN A="Short" 
ELSE IF X(I+1)>0 THEN A="Long" 

794 PRINT" "A: IF PR$="Y" THEN LPRINT" "A 

795 IF INT ( (1 + 1) /8) *8=1 + 1 AND I + KIX AND 
PR$< >" Y" THEN GOSUB 500:GOSUB 600 

797 NEXT I 

798 IF PR$=" Y" THEN LPRINT CHR* (12) 

799 GOSUB 500: GOTO 100 
1000 'enter transaction 

1005 CLOSE: OPEN Fit FOR APPEND AS 1 
1010 GOSUB 200 

1020 PRINTS080 , "Date : " ; TAB < 22) "Buy 

/ Sell:"; 

1030 PRINTS120, "Stock ID 
1035 PR INTS1 42 , "Commi ssi on : " ; 

1040 PRINT0160, "Shares 
1050 PR INT0200 , "Pr i ce/Shr 
1060 GOSUB 400 

1100 PRINT092,"";: GOSUB 6:IF Y=32 THEN 1 
00 ELSE IF LEN ( INt) <6 THEN 1100 ELSE DTt 
=INt: PRINT0280, BLt; 

1110 PRINT0114,""; : INt=INPUTt(l):IF INt= 
"" THEN 1110 ELSE Y=ASC ( INt) : IF Y=32 THE 
N 1110 ELSE IF INtO"B" AND INtO"b" AND 
INt< >" S" AND INtO"s" THEN 1110 ELSE BS 
t= I Nt 


1115 IF INt="b " THEN BSt="B" 
="s" THEN BSt="s" 

1117 PRINT INt; 

1120 PRINT@132,"";:GQSUB 6: IF 
90 THEN 1120 ELSE IDt=INt 
1130 PRI NT01 72 , " " 5 : GOSUB 6:IF 
130 ELSE SH=X 

1140 PRINT0212,"" 5: GOSUB 6:IF 
140 ELSE PR=X 

1150 PRINT0153 , " " 5 : GOSUB 6:IF 

N 1150 ELSE CM=X 

1160 PRINT0288, "Entry Correct 


ELSE IF INt 

Y<65 OR Y > 
X<0 THEN 1 
X<0 THEN 1 
I Nt = " " THE 
(Y/N): "5: 


INt=INPUTt ( 1 ) : IF INt="N" OR INt="n" THEN 
1000 ELSE IF INtO"Y" AND INtO"y" THEN 
1160 ELSE PRINT INt; 

1170 PRINT#l,CHRt(34)DTtCHRt(34) ", "CHRt( 
34) BStCHRt (34) " , "CHRt (34) IDtCHRt (34) " , “S 


H; PR; CM 


1180 GOTO 1000 

2000 'individual activity 


2010 GOSUB 200 : GOSUB 300:GOSUB 400 
2020 PRINT0127, "Enter Stock Symbols ";:G 
OSUB 6s IF IN$=" " THEN 2020 ELSE IF Y=32 
THEN 100 ELSE IF Y<65 OR Y>90 THEN 2020 
2025 PR$="N" : PRINT0208, "Send to printer 
(Y/N) s : A= INPUT! ( 1 ) : PRI NT8200 , BL$; s IF 
A="N" OR A= M n"THEN 2030 ELSE IF A="Y" 0 
R A=" y" THEN 2027 ELSE 2025 
2027 PR$»" Y" 

2030 CLSs PRINT H1$;H4$;:IF PR$="Y" THEN 
LPRINT TAB (15) "Stocks " IN$: LPRINTs LPRINT 
HI $s LPRINT H4! 

2035 LC=0: N=0: TS=0 

2040 IF EOF ( 1 ) THEN 2090 

2050 INPUTtl ,DT$,BS$, ID$,SH,PR,CM: IF ID$ 

< >IN$ THEN 2040 

2060 IF BS!="B" THEN BS$="-Bought": TS=TS+ 
SH ELSE BS$=” Sold": TS=TS-SH 
2070 PRINT USING G1 $; DT$; BS*; SH; PR; CM; : N 
=N+1 : IF PR!="Y" THEN LPRINT USING G1*;DT 
Df ; BS#; SH; PR; CM 

2075 LC=LC+1 : IF LC=5 AND PR#<>"Y" THEN G 
OSUB 510: CLS: PRINT H1#;H4#; : LC=0 
2080 GOTO 2040 

2090 PRINT: PRINT"Total:"N" Transact ions" 

2091 IF PR#="Y" THEN LPRI NT: LPRINT " Tot al 
: "N"Transacti ons" 

2092 A= "LONG" : I F TS<0 THEN A="SH0RT" 

2094 PRINT TAB ( 6) ; : IF TS=0 THEN PRINT" N 


o Position": GOTO 2095 ELSE PRINT ABS(TS) 
"Shares "A 

2095 IF PR#<>"Y" THEN 2096 ELSE LPRINT T 
AB (6) ; s IF TS*0 THEN LPRINT" No Position" 
* GOTO 2096 ELSE LPRINT ABS ( TS) "Shares "A 

2096 GOSUB 500: CLOSE: GOTO 2000 
3000 'open position 

3010 GOSUB 200: GOSUB 300:GOSUB 400 
3015 PRINTS203, "(Enter for all stock 
s on file) 

3020 PRINT0130, "Enter Stock Symbol: ";:G 
OSUB 6: PRINTS200, BL#; : IF IN#=" M THEN 301 
5 ELSE IF Y=32 THEN 100 ELSE IF IN#="#" 
THEN 700 ELSE IF Y<65 OR Y>90 THEN 3015 
3030 TS=0:PRINT0280,BL$; 

3040 IF EOF ( 1 ) THEN 3090 

3050 INPUT#1,DT#,BS#,ID#,SH,PR,CM 

3060 IF ID#OIN# THEN 3040 

3070 IF BS#=”B" THEN TS=TS+SH ELSE T5=TS 

-SH 

3080 GOTO 3040 

3090 PRINT0210, "Current Positions "; s IF T 
S=0 THEN PRINT" None":G0T0 3096 
3092 PRINT ABS(TS) ; :A="L0NG": IF TS<0 THE 
N A="SHORT" 

3094 PRINT A 

3096 GOSUB 500 : CLOSE : GOTO 3000 
4000 'end 

4010 CLS: MENU GH33 
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BUSINESS 

Skyline Software 

PortaCalc - Electronic spreadsheet 
with 1 4 column by 26 row workspace! 
Full use of built in function keys. 
(24K) cassette ^$6^95 $66.45 

‘PortaStat - statistical package 
* Porta Max - linear programming 
*PortaFin - loan & investment pkg. 

(24K) $£*S5 $42.70 ea. 
*PortaFolio - being released soon at 
$42.70 ea. 

* interactive with PortaCalc data files 

Portable Computer Support Group 

Business Pak+ includes : 
Write*, Graph*, Expns *, Telex*, 
Put*, Sort* & a 120-paae manual 
6 cassettes (8K) $U9i95 $85.45 



Personal checks welcome. 
Please add $2.00 for shipping. 
Tennessee residents add 6.25% sales 
tax. 

C.O.D. orders add $2.00. 

Send for free 

complete catalog and descriptions! 




CHRISTMAS SPECIALS 


RECREATION 

Silverware 

Games 1-4 games on cassette 
Blockade Frankenstein Adventure 
Reversi Alexis Adventure 
(24K) S2M§ $23.70 

Games 2 - 4 games on cassette 
Maximum, Checkers 
Amazing Chase 
Williamsburg Adventure 
(24K) $23<fl6 $23.70 

Prickly-Pear Software 1 0% OFF 

Viking - (24K) simulation game 
cassette $1 $17.95 
Bowling League Secretary (24K) 
cassette $^k9§ $31.45 
Football 

Armchair QuarterbackStrategy 
(16K) cassette $1^95 $17.95 

Scribe-Word Processor 

Formats & prints from text files. 

(8K) cassette $£4<95 $23.70 
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Clear skies coming? { 
Or is it 
going to rain 
cats and dogs? Try 
this Weather Map 
program to get the 
forecast. 



(Alexander Trevor is the 
executive vice president of 
computer resources at 
CompuServe. He also has a 
commercial pilot’s license 
with instrument and glider 
ratings, and spends much of 
his spare time programming 
his Model 100, Color Com- 
puter and IBM I PC.) 



S ometimes the applications for a 
new device are so obvious that 
you hardly have to point them 
out. For example, set a Model 100 in 
front of a pilot, and it won’t take long 
for him (or her) to realize that this little 
portable powerhouse could be very 
handy for pre-flight and in-flight chores. 
Although there have been other ma- 
chines that one could tote along in the 
cockpit, the 100 is the first one with a 
screen large enough to be useful in 
flight. Not only can the pilot retrieve 
flight plans and textual weather infor- 
mation obtained before takeoff from an 
information service (or entered manu- 
ally), but the 100 is capable of pretty 
decent graphics — a capability tnat can 
be used to display weather radar maps. 

Graphical weather maps are available 
from a number of sources, but one of 
the least expensive ways to obtain maps 
that are easily displayed on the Model 
100 is to download the Vidtex® Radar 


Maps from CompuServe. To do this, 
one must have a CompuServe Informa- 
tion Service account, and at least 1 6K of 
memory. The downloaded maps can 
consume up to 4K. The maps are trans- 
mitted in “run-length encoding,” which 
reduces transmission time as well as 
minimizing the amount of RAM re- 
quired to store them. However, without 
a program to decode the run-length 
encoding, the maps make about as 
much sense as the listing of a .CO file. 

Two different graphic resolutions are 
used: “high resolution” which is 256 
pixels wide by 192 high, and “medium 
resolution” (128 x 96). The accompany- 
ing listing is a program that will plot 
either high or medium resolution “run 
length encoded” graphics on the LCD 
screen. Since the Model 100 screen is 
only 240 x 64 pixels, High-Res maps are 
displayed in three sections, and me- 
dium-resolution maps in two. 

Although anyone interested in weath- 


er should find these maps useful, they 
are of particular interest to aircraft 
pilots, especially since maps can be dis- 
played at any time (including in flight). 
They provide a useful reminder of gen- 
eral weather trends, although they are 
not practical for detailed storm avoid- 
ance like true airborne radar, since the 
data is at least a half-hour old, and the 
resolution is too coarse. Each pixel 
represents an area of 20 x 20 miles. 

The run-length encoding spans all 
characters from 30 (decimal) through 
511, so eight-bit reception must be en- 
abled on your Model 100. This is done 
by setting the TELCOM status to 
M8N1E. However, CompuServe nor- 
mally sends seven-bit data with even 
parity, so you will see some strange gar- 
bage as you log in with this setting. The 
solution is to log on with default status 
(M7I1E) and change your terminal pa- 
rameters on CompuServe to set the par- 
ity bit to zero. This is easily accomp- 
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lished by logging on, then typing “GO 
CIS-9” at the “!” prompt, or by running 
DEFALT from the programmers’ area. 
From the DEFALT menu, select “5” 


(View or Change Current Terminal Pa- 
rameters). Next, select “8” (Parity) and 
set it to zero. Finally, exit the DEFALT 
program and request that changes be 
effective for future sssions. Before log- 
ging on the next time, change your ter- 
minal parameters to M8N 1 E in TELCOM. 
Now when you log on you will see a little 
bit of strange stuff until you get to the 
“Password:” prompt. This is because, 
until you identify yourself, the host 
computer does not know what terminal 
parameters you desire. So, the initial 
“User ID:” prompt is sent with even 
parity, and those characters with the 
parity bit set to one (s,I and space) will 
appear as graphics characters on the 
100 . 

At this point everything should ap- 
pear normal, and you can go to the Avi- 
ation Weather section, or directly to the 
weather maps (GO AWX4). The pro- 
gram will correctly inform you that 
TELCOM is not equipped to display 
graphics and that they may appear as 
meaningless characters, but you can 
ignore this. When you see “Compu- 
Serve Vidtex Radar Maps,” choose 
“I” — Prepare a map for display. Next, 
select “2” — Prepare current U.S. radar 
reports. The sytem will list the three 
letter ID of each radar site, and the 
GMT time of the report being collected. 
After all reports are collected, on the 
next menu choose “2” — Display pre- 
pared map. You may select any of the 
maps, but before you press ENTER 
after your choice, you must first press 
F2 (Down) and specify the name you 
wish to use for the downloaded file 
(MAPI or whatever). Then press 
ENTER, and you will be treated to sev- 
eral screenfuls of utter garbage, but 
don’t panic! Just wait until you hear a 
BEEP, then press F2 (Down) to termi- 




The listing: 

10 'CompuServe Vidtex Graphics Plotter 

11 'Use Telcom Stat M8N1E to down GRAFIX 

12 ‘Set PARITY ZERO on CompuServe 

14 'By A.B. Trevor, August 1983 

15 DEFINT A-Z 

20 INPUT"Fi 1 e to pi ot " 5 FL*: OPEN FL* FOR 
INPUT AS 1 

30 IF EOF ( 1 ) THEN PRINT FL*“ not a graph 
ics f i 1 e " : STOP 

40 IF ASC ( INPUT* < 1 , 1 ) ><>27 THEN30 
60 CLS :T=0!MX=240:LM=0:A*= INPUT* (2,1) : IF 
A*=" 6 H"THEN SF=256 ELSE IF A*="GM"THEN 
SF=128:MX=SF!LM=56 ELSE 30 
70 'Now decode the RLE 

80 GOSUB 250:Xl=XsYl=Y: GOSUB250: IF B=0TH 
EN80 


nate the download, and ENTER to tell 
the host computer to proceed. Y ou can 
now log off or continue with your on- 
line session. 

Once off-line, disconnect and go back 
to the menu. From here, you can run the 
GRAPHR.BA program. Give it the file 
name you specified to TELCOM, and 
watch the current weather map appear! 
An outline of the state boundaries will 
be drawn with radar “echoes” superim- 
posed on top. “Weak” and “moderate” 
echos will appear as horizontal shading, 
while stronger echoes appear solid 
black. When the screen is full, press any 
key to see the next section. 

A design “feature” of the Model 100 
will very occasionally cause a map to be 
partially trashed. For some reason, the 
Model 100 will not store a delete charac- 
ter (&H7F) in a RAM file without some 
sleight of hand, and one does not get an 
opportunity to do much magic in TEL- 
COM. The problem can be avoided by 
writing a special purpose communica- 
tions program which replaces the delete 
character with something else. 

One final remark for those contem- 
plating the use of this program in air- 
craft: Pilots need not be overly con- 
cerned about operating a Model 100 in 
flight. Although the Federal Aviation 
Regulations (FAR’s) saddle the pilot in 
command with the responsibility of 
determining whether or not an elec- 
tronic device (such as the Model 100) 
will cause harmful interference with 
navigation or communications radios, I 
have found nothing to suggest a prob- 
lem. My Model 100 has many hours of 
instrument flight time in my Cherokee 
Challenger, and I have never noticed 
any ill effects. I hear the same thing 
from other pilots who regularly fly 
172’s, King Airs and such with their lit- 
tle white boxes. 

90 IF B >64 THEN B=96:G0SUB 260 
120 IF X 1 >=MXTHEN1 60 

150 IF X < M X AND X >X 1 THEN L I NE < X 1 +LM , Y 1 ) 

- ( X+LM , Y 1 ) ELSE LI NE < X 1 +LM , Y1 ) - (MX+LM-1 , 
Yl) 

160 IF Y > Y 1 THEN L INE ( LM , Y) - ( X+LM , Y ) 

200 GOTO80 

250 B=ASC(INPUT*(1,1))-32:IF B=-2 THEN B 
= 96 

260 X=X+B: IF X>=SF THEN X=X-SF: Y=Y+1 : IF 

Y=64THEN GOSUB300 

270 IF EOF ( 1 ) THEN GOSUB300 

280 RETURN 

300 FORS=5000TO999STEP-400: SOUNDS, 1 : NEXT 

310 IF INKEY*= M " THEN 310 

315 T=T+128s IF T>SF THEN CLS: END 

320 Y=0: CLS: RETURN 333 
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The PoCo Calendar 

By Ronald Paludan 

Here's a useful appointment calendar for LCD screen with options to tell you the 
time and date, set an alarm and print any month from 1582 A.D. into the future! 


T he built in ADDRSS and 
SCHEDL programs of the Model 
100 have replaced my traditional 
appointment book. There was however, 
one feature that the appointment book 
had that the Model 100 didn’t — month- 
ly calendars. Thus PoCo Calendar was 
born. At first, the program was merely a 
perpetual calendar, but a number of fea- 
tures have been added to increase its 
utility. The final version uses under 
2900 bytes. 

When the program is RUN, it will 
display the current month’s calendar. 
The current day is highlighted by a cur- 
sor. To display the previous month, 
press the key. For the next month, 
press the “+=” key. Any month of the 
Gregorian Calendar ( 1 582 A.D. to pres- 
ent and future) can be displayed by 
pressing “ 1 ” (N ote: use the keyboard 1 , 
not the function key FI). The program 
will prompt you to enter MONTH/ 
YEAR? Enter the first three letters of 
the desired month (use all capitals) fol- 
lowed by a comma and the year. Include 
all digits for the year (JUL,1984 not 
JUL,84). Pressing “2”will turn on or off 
a display of the current time and date. 
Key “3” will make a copy of the dis- 
played calendar on a printer. 


jifllf !#* ti 


11 


The fourth option allows you to use 
the PoCo as an alarm clock. After press- 
ing “4,” enter the alarm time using the 
same format that you used for setting 
TIMES (hour: minute:second— see Page 
18 of your user’s manual). You may 
leave off the seconds and enter hour: 
minute. Remember that the Model 100 
uses a 24 hour “military” clock. If you 
want the alarm to sound at 1:00 p.m., 
then set the alarm time for 13:00:00. 
After setting the alarm, the program 
will return to the calendar display and 
an asterisk (*) appears next to option 
four. To cancel the alarm, press 4 again. 
When the alarm sounds, it will beep for 
27 seconds or until any key is pressed. 

By using the cursor control keys, the 
cursor can be moved from one date to 
another. Moving the cursor beyond the 
upper or lower boundaries of the calen- 
dar will change the display to the pre- 
vious or next month respectively. If you 
press the 5 key, the program will search 
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your NOTE. DO file and display any 
messages for that day and month. In 
order for this option to work, your 
NOTE. DO messages must include the 
month followed by the day. For exam- 
ple: 09/01 for September first. If there 
are no messages for that date, the pro- 
gram will print “NOTHING SCHE- 
DULED FOR (date)” and prompt you 
to press any key to return to the calen- 1 
dar display. 

To exit PoCo Calendar , press key “6” 
and the program will return to the menu 
screen. 

There are two techniques used in 
PoCo Calendar which other program- 
mers may find useful. One is the use of 
inverse characters for the calendar head- 
er and the cursor. Printing CHR$(27); 
“p” causes subsequent characters to be 
printed in inverse mode. Printing 
CHR$(27);“q” restores printing to nor- 
mal mode (see Lines 130 and 540). The 
other technique of interest is the clock 
interrupt used for the alarm. Line 420 
instructs the computer to stop whatever 
it is doing and execute a subroutine 
starting at Line 650 when the compu- 
ter’s clock (TIMES) matches the alarm 
time (T$). 
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The listing: 

10 REM POC0 CALENDER by Ron Paludan 
DIMM* (12) , D ( 1 2) 

F0RX»1T012:READM*(X) , 0 ( X ) : NEXT 
CLS : SCREEN 0,0 

V=1900+VAL< RIGHT* (DATE*, 2) ) : M=VAL (LEF 
T* (DATE*, 2) ) :CT=VAL(MID*(DATE*,4,2) ) :CD= 
CT : GOTO90 

60 CLS: CD=1 : CT=1 : INPUT "MONTH , YEAR" ; M* , Y: 
F0RM=1T012 

70 IFLEFT*(M*(M),3)=LEFT*(M*,3)THEN90 
80 NEXTM: PRINT: PRINT"NO SUCH MONTH" : PRIN 
T : GOTO60 

90 MN=M:YR=Y:M0=M:YE=Y:D=1:IFMN<3THENMN= 
MN+12: YR=YR-1 

100 K=D+2*MN+I NT <.6*(MN+1) ) +YR+INT ( YR/4) 

-INT(YR/100)+INT(YR/400)+2 

110 K = INT ( (K/7-INT ( K / 7 ) ) *7+. 5) : K=K-1 : IFK 

<0THENK=6 

120 CLS 

130 PRINTTAB(7-LEN(M*(M0) ) /2 > ; CHR* < 27 ) ; " 
p " ; M* (MO) " "YE | CHR* (27) ; "q" 

140 PRINT" S M T W T F S" 

T=K:DA=1:CP=81+K*3:CX=K#3: IFCT=1THEN 


* Hiiiii 


i# I i 


**{•*»*« 
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150 

180 

160 


F0RX=lTQCT-l:CP=CP+3:CX=CX+3: IFCX >18 
THENCP=CP+19: CX=0 
170 NEXTX : CD=CT 
180 IFT> 6 THENPRINT" ":T =0 
190 PRINTTAB(T#3)STR*(DA) ; : DA=DA+ 1 : T=T +1 
200 DM=D(MO) : IFMO2THEN260 
210 IFY/4OINT(Y/4)THEN260 
220 IFY/400=INT(Y/400) THEN250 
230 IFY/100OINT (Y/100) THEN250 
240 GOTO260 
250 DM=DM+1 
260 IFDA<DM+1THEN180 
270 PRINT" " 5 : PRINT825, " " 

280 PRINT823, " 1 . NEW MONTH" : PRINT063, "2. 
TIME/DATE":PRINT0103,"3. PRINT CALENDER 
11 : PRINT0143, "4. SET ALARM" 

290 PRINT0183, "5. SCHEDULE" : PRI NT0223 , "6 
. MENU" 

300 IFAL B 1THENPRINT§142,"#“ 

310 Q*=INKEY*:Q=VAL(Q*) : IFQ*< >"+"ANDQ*< > 
"="THEN330ELSEM=MO+1:IFM>12THENM=1:Y=Y+1 
320 CT=1 : CD=1 : GOTO90 

330 IFQ*< >"-"THEN350ELSEM*MO-l : IFM< 1THEN 
M=12: Y=Y-1 

340 CD=1 : CT=1 : GOTO90 
350 IFQ=1THEN60 

360 IFQ=2ANDFL=1THENPRINT®263, SPACE* ( 15) 
:PRINT@303, SPACE* (15) ; : FL=0: GOTO390 
370 IFQ=2ANDFL=0THENFL=1 
380 IFFL=1THENPRINTS263,"TIME: "TIME*:PRI 
NT0303, "DATE: "DATE*; 

390 I F Q < >3THEN400ELSEFORW=23TO263STEP40: 


PRINT8W, SPACE* (17) ; s NEXT: LCOPY: GOTO280 
400 IFQ=4ANDAL=1THENPRINT0142," ":AL=0:T 
IME* OFF: GOTO430 

410 IFQO4THEN430ELSECLS:LINE INPUT"SET 
ALARM TIME-";T*: IFLEN (T*> <6THENT*=T*+" : 0 
0 " 

420 ONTIME*=T*GOSUB650:TIME* ON:AL=l:GOT 
0120 

430 IFQ*=CHR*(31) ORQ*=CHR* ( 30 ) ORQ*=CHR* ( 
29 ) ORQ*=CHR* (28) THENPRINTfiCP-1 ,STR* (CD) " 


III * 1 


) 

440 IFQ*< >CHR* (28) THEN460ELSECP=CP+3: CX = 
CX+3:CD=CD+1:IFCD<=D(M0) THEN520ELSEM=MO+ 
1:IFM>12THENM=1:Y=Y+1 
450 CD= 1 : CT=1 : GOTO90 

460 I F Q * < >CHR* (29) THEN480ELSECP=CP-3:CX = 

CX-3: CD=CD-1 : IFCD>0THEN520ELSEM=MO-1 : IFM 

< 1THENM=12: Y=Y -1 

470 CD=D(M) : CT=D <M) :GOTO90 

480 I FQ*< >CHR*(30) THEN500ELSECP=CP-40 : CD 

=CD-7: IFCD>0THEN520ELSEM=MO-1 : IFM< 1THENM 

= 12 : Y = Y - 1 

490 CD=D(M) :CT=D(M) :GOTO90 

500 IFQ*< >CHR* (31 ) THEN520ELSECP=CP+40: CD 

=CD+7: IFCD<D(MO)THEN520ELSEM=MO+1:IFM>12 

THENM=1 : Y=Y+1 

510 CD=1 : CT=1 : GOTO90 

IFCX>18THENCP=CP+19:CX=0 
IFCX<0THENCP=CP-19:CX=18 
PRINT«CP-1,CHR*(27) ; "p";" "RIGHT* (ST 
R* (CD) ,LEN (STR* (CD) ) - 1 ) " ";CHR*(27) ; "q"; 
550 IFQO5THEN640ELSECLS:S*=RIGHT*(STR*( 
MO) ,LEN (STR* (MO) ) - 1 ) : IFLEN (S*) <2THENS*=" 
0"+S* 

560 D*=RI GHT *<STR*(CD) ,LEN(STR*(CD) )-l) : 
IFLEN <D*)<2THEND*="0"+D* 

570 S*=S*+"/"+D*: OPEN "NOTE. DO"FORINPUTAS 
1 : 5F=0 

580 LINE INPUT#1,A*:IFINSTR(A*,S*)O0THE 

NPRINTA*: SF =1 

590 IFEOF ( 1 ) THEN610 

600 GOTO580 

610 IFSF=0THENPRINT: PRINT" NOTHING 

SCHEDULED FOR "S* 

620 CLOSE: PRINT: PRINT" HIT ANY KEY TO 
RETURN TO CALENDER ": CT=CD 
630 IFINKEY*=""THEN630ELSEGOTO90 
IFQO6THEN300ELSEMENU 
PRINTS142, " ":PRINT@ 0 , INKEY* 
FORX=1TO200:BEEP: IFINKEY*< >“ "THENX=1 
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NEXTX: RETURN 

DATAJANUARY, 31, FEBRUARY, 28, MARCH, 31, 
APRIL, 30, MAY, 31, JUNE, 30 
690 DATAJULY, 31, AUGUST, 31, SEPTEMBER, 30,0 
CTOBER, 31, NOVEMBER, 30, DECEMBER, 31 
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With Five Ready-to-Run Programs, Model 100 Is One of 
the Most Talked-About, Most-Wanted Computers Ever! 

Personal Word Processing ■ Appointment Scheduler ■ Address/ Phone Directory 
Built-In Auto-Dial Modem ■ BASIC Programming Language 


America’s Gift Sensation! 

"This Christmas, give that busy executive or student 
in your family the computer that has revolutionized 
personal computing.” That's very good advice from 
Isaac Asimov. Model 1 00 is small enough to fit easily 
in briefcase or knapsack, yet powerful enough to 
serve as a desktop microcomputer. It requires no 
"extras" to get started. And you can use it any- 
where, because it works on batteries or an optional- 
extra AC adapter. "That makes it the perfect gift for 
people who need true portable computing power." 

Ready to Use — Just Turn It On! 

"I can use Model 100 the second I switch it on." 
That's because five easy-to-use, built-in programs - 
plus your own files - are displayed instantly. Want to 
access information services and communicate with 
other computers? No problem. With Model 100 the 
direct-connect telephone modem is built in! 

A Truly Powerful Computer 

"I could write a book about the many uses a busy 
person can find for Model 100!" For instance, 
Model 1 00' s typewriter-style keyboard, 8-line by 40- 
character display and powerful word processing soft- 
ware makes it ideal for any sort of text 
entry — memos, reports and speeches. Connect a 
printer to Model 100's standard parallel interface for 
hard copy printouts. Load programs, text and data 
into Model 1 00 from almost any computer- desktop 
micro, mini or mainframe — via the built-in RS-232C 
interface and take your work with you on business 
trips. Or you can enter notes or data in the field and 
transfer that information back to your office com- 
puter by phone via Model 100's built-in modem. 

Stay on Top of Information 

"Model 100's advanced communications features 
put all the latest news, weather, sports, stock quotes 
and other important information from CompuServe® 
and Dow Jones News/Retrieval® right at my finger- 
tips. I can use Model 100 and the information net- 
works to send and receive 'electronic mail' and even 
do my shopping at home — or wherever else I am!" 
Store messages or draft-copy letters prepared on 
Model 100 with CompuServe's Electronic Mail Ser- 
vice to avoid long-distance transmission charges. 
(CompuServe is a local call in most major cities.) Then 
all your secretary has to do is call CompuServe to 


"pick up" the mail. That way, your work can be 
completed by the time you return. 

Loaded With Features 

"Programmers will appreciate Model 100's built-in 
Microsoft® BASIC language." It gives you full string 
handling, complete file operations, multi-dimension 
arrays, 14-digit double-precision accuracy, 240x64 
dot-addressible graphics and a five-octave sound 
generator. Model 100 includes a parallel printer port 
and a cassette port. It has eight function keys for 
built-in programs and BASIC, and four control keys 
for easy input. Memory is expandable in 8K incre- 
ments up to 32K so you can store more information or 
write longer programs. 

Supported Coast-to-Coast 

"I can't think of anyone who wouldn't enjoy finding a 
Model 100 under the tree. And don't forget that 
Model 100 users enjoy Radio Shack's excellent sup- 
port system in over 6600 locations nationwide.' 
Drop by your nearby Radio Shack Computer Center, 
participating store or dealer today and pick up the 
TRS-80 Model 100 Portable Computer. It's the per- 
fect present for busy people. 


8K TRS-80 Model 100 

799 00 

# 26-380 


AS LOW AS 
s 45 PER 
I MONTH 


24K TRS 80 Model 100 
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Radio /hack 

The biggest name in little computers® 

A DIVISION OF TANDY CORPORATION 


NEW 1984 TRS-80 CATALOG! Send for your free copy. 

MAMir 

Mail To: Radio Shack, Dept. 84-A-728 
300 One Tandy Center, Fort Worth, Texas 76102 
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By Robert Frowenfeld 


H ere’s a little program that you 
should find both educational 
and fun to use. It’s a program 
that uses the sound generator chip in 
your Model 100 to generate Morse 
code. As you can see by the accompany- 
ing table, each character in Morse code 
is made up of a series of dots (short 
sounds) and dashes (longer sounds). 
There are also a few, simple rules that 
govern the length of the sounds and 
pauses that make up each character. 
First of all, the length of time for a dot ’.’ 
is considered to be one unit. The length 
of time for the sound of a dash is three 
times that for a dot, or three units. 
There is a one time unit pause between 

Morse Code Alphabet 


each dot (or dash). Also, there is a pause 
of three time units between each charac- 
ter to be transmitted, and a pause of five 
time units between words. To ‘see’ how 
this works see the drawing where each 
of the letters in the word CAT are 
shown as they would be transmitted. 

When you first run this program a 
display will appear illustrating the 40 
Morse code characters that can be sent. 
This program also includes a special 
function that lets you test your Morse 
code receiving skills. There is a speed 
level which can be adjusted to any 
integer number between I and 10. To 
select a different speed simply press the 


ENTER key when requested to input a 
message. Once you’ve decided on a mes- 
sage to transmit, enter it from the key- 
board and press ENTER. As each letter 
is being ‘beeped’ out at you, it will be 
displayed on the Model 100’s screen. If 
you want to see (and hear) all the avail- 
able characters, just type in the word 
TEST for your message. Remember, 
you must always use upper case letters 
when typing in your message. To end 
the program just type the word MENU 
and you will be returned to your Model 
100’s Menu display. Well, give it a try 
and see if you can start to develop the 
proper sense of timing to receive Morse 
code; S.F.B.M. would be proud of you! 



The listing: 

1 CLEAR 2000! DEFI NT B- Z s DEFSTR A 
10 CLS 
20 SOUND ON 
30 DIM A ( 40 ) 

40 SP=5 

50 DATA fE« )F»»*i j6“ 

"» (Hi ■ a a | la a ) J a "*"(K"a“jLt”a a | 

55 DATA N-. , 0 , P. ,Q — . -,R.-.,S...,T- 

,U. a V. . a-,W.--,X-a a-,Y-a— ,Z — a . 

60 DATA 0 ,1. ,2. a — ,3. a .",4. a a 


65 DATA a.-.-.-,",--..--",?.."..,/-..-. 
70 FOR 1 = 1 TO 40 s READ A* ( I ) s NEXT I 
75 DATA ” A8CDEFGHI JKLMNDPQRSTUVWX YZ01 234 
56789. ,? p READ AA / 

80 FOR J=T TO 8: FOR K=1 TO 5: I=J+ (K-l ) *8 
sIF K=5 AND J=8 THEN PRINT LEFT* (A (I ) , 1 > 


“ " ; M I D * ( A < I ) ,2); ELSE PRINT LEFT* (A(I), 

1)" * ; USING" ; MID* ( A < I ) , 2) + “ "(fT 

81 NEXT K: NEXT J 

90 FOR 1=1 TO 5000: NEXT I 

100 'input message 

105 CLS: PR INT84 0," Speeds" SP sPRINT: PRINT" 
Input Message: " : LINEINPUT A*: IF A*="ME 
NU" THEN MENU ELSE IF A*="TEST" THEN A*= 
AA*: GOTO 110 

107 IF A*= " " THEN GOSUB 200:GOTO 100 
110 PRINT0215, " " } : FOR 1 = 1 TO LEN(A) 

115 A1=MID*(A,I,1):PRINT A1*;:IF Al=" "T 
HEN GOSUB 180: GOTO 150 
120 J=INSTR(AA, Al) : IF J=0 THEN 150 
125 A2=MID*(A<J) ,2):K=LEN(A2) 

130 FOR J = 1 TO K: A3=MID* < A2* , J , 1 ) : IF A3= 
THEN LN=SP ELSE LN=SP#3 
135 SOUND 3000, LN 
140 IF JOK THEN SOUND 1 , SP 
145 NEXT J 
148 SOUND 1 , SP*3 
150 NEXT I 
155 GOTO 100 
180 SOUND 1 , SP*5 
190 RETURN 
200 'change speeds 

210 CLS: PRINTS128, "Enter Speed (1-10): " 

; sLINEINPUT A*: SP=VAL (A*) : IF SP<1 OR SP> 


10 THEN 210 ELSE RETURN 


I iJHiTi 
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PRICKLY- PEAR SOFTWARE 

QUALITY PROGRAMS FOR YOUR MODEL 100 



Monsters & Magic 

The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling upyourcharacter's 
basic ability scores and buying equipment. When you are 
ready it’s into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight - each with it’s own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in thistext based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape— 24K 


Astrology 

Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
and aspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 



A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating theirtaxes, each playertries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 



If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have what it takes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you’ll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 7% sales 
tax. Orders shipped within two days. 


Stocked by Quality Dealers, or 


Send Order To: PRICKLY-PEAR SOFTWARE 



9234 E. 30th Street 
Tucson, Arizona 85710 
(602) 886-1505 



Want to forecast your heating bill for the coming winter? Pondering a switch 
to natural gas? Or perhaps to a woodstove? Here’s a program that will help 
answer such burning questions. 



Keeping an 
Eye on 
Home Heating 
Cost 


By Joseph Donohue 


I f you saved last year’s bills, you 
already know the approximate num- 
ber of gallons (oil), kilowatt-hours 
(electricity), cords (wood), or therms 
(natural gas) your house consumes each 
winter. 

If you’re totally new at the energy 
game, don’t fret. This program enables 
you to make a ‘‘ballpark’ estimate of 
fuel use by relying on a standard heating 
industry formula. 

Once it determines how much fuel 
you use, the computer will tally the cost 
using current prices. Then it lets you see 
how' much you’re saving — or spending 
— compared to other fuels. 

Before running the program, keep 
these points in mind. 

First, the program works best il you’re 
comparing heating systems designed to 
warm an entire house. 

Use of kerosene heaters, solar collec- 
tors, electric heaters, and other supple- 
mental heating sources obviously can 
alter your bill. 

The basic measure of heat content is 
the British Thermal Unit (BTU). A BTU 
represents the amount of energy needed 
to raise the temperature of one pound of 
water one degree fahrenheit. 

Various fuels contain the following 
BTUs (on average): 


Heating Oil, gallon: 139,400 

Natural gas, therm: 100,000 

Electricity, kilowatt-hour: 3,413 

Wood, cord (dry): 20,000,000 


In southern New Jersey, a standard- 
sized (1,560-square-foot) house that’s 
fairly well insulated devours about 78 
million BTUs each heating season. 

Except for electric heat, which is deli- 
vered at 100 percent efficiency once it 
reaches the house, other heaters per- 
form less well. 

A U.S. Department of Energy study 
places average seasonal efliciency for a 
conventional oil heater at 76 percent. A 
gas heater is 65 percent. A woodstove is 
about 55 percent 

U sing these guidelines, the house men- 
tioned above requires 675 gallons of 
heating oil, 1,053 therms of gas, 4.9 
cords of wood, and 22,854 kilowatt- 
hours of electricity. 

When using the program, you simply 
enter the number of BTUs in the fuel 
you use, and the efficiency (.76 for oil, 
.55 for wood, .65 for gas, or 1.0 for 
electricity). 

If you kept last year’s bills and already 
know the total fuel you used, enter that 
number. 

If you have no idea how much fuel 
your house gobbles up, try the Heat 
Loss Method. 

The computer first asks how many 
BTUs per hour your house gobbles. If 
it’s fairly well-insulated, the figure will 
be about 37,000. If it’s medium, 50,000. 
If it’s really drafty, use 75,000. 

The computer next asks the average 
number of heating degree days in your 
area. 

You can find this by calling the local 


weather service or your local utility. 
You also can write to the National Cli- 
matic Center, Federal Building, Ashe- 
ville, North Carolina 2801 1. 

A heating degree day is figured by 
subtracting the average outside temper- 
ature for a given day from 65 degrees. 
For instance, if the temperature is 35, 
then the heating degree day is 65-35-30. 

It provides a reliable measure of each 
winter’s coldness. 

In the continental United States, the 
total annual heating degree days range 
from a high of 10,000 in North Dakota 
to a low of 500 in Florida. 

Next, you enter the design tempera- 
ture. This is the coldest temperature at 
which your heating system will keep 
your house at 68 degrees. If it gets colder 
outside, your house will get chilly. 

As with heating degree days, design 
temperature varies with latitude from 
-25 in Bismarck, North Dakota to +36 
degrees in Tampa, Florida (see accom- 
panying table). 

Finally, the computer requests the 
efficiency and BTU content of the fuel. 

It then uses the modified American 
Society of Heating, Refrigerating, and 
Air-Conditioning Engineers degree-day 
formula to estimate fuel use. 

Now that the computer knows how 
much fuel you’ll need, it will hand you 
the tab. 

The screen will read, “Want Gas (G), 
Oil (O), Electricity (E), or Wood (W)?” 

It’s fairly easy to find out the price of 
wood or oil. Check the phone book and 
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Table 1 

Design Temperatures 


State City (°F) 


Alabama 

Birmingham 

19 

Alaska 

Anchorage 

-25 

Arizona 

Phoenix 

31 

Arkansas 

Little Rock 

19 

California 

Los Angeles 

41 

California 

San Francisco 

35 

Colorado 

Denver 

-2 

Connecticut 

Hartford 

1 

Florida 

Tampa 

36 

Georgia 

Atlanta 

18 

Idaho 

Boise 

4 

Illinois 

Chicago 

-3 

Indiana 

Indianapolis 

0 

Iowa 

Des Moines 

-7 

Kansas 

Wichita 

5 

Kentucky 

Louisville 

8 

Louisiana 

New Orleans 

32 

Maryland 

Baltimore 

12 

Massachusetts 

Boston 

6 

Michigan 

Detroit 

4 

Minnesota 

Minneapolis 

-14 

Mississippi 

Jackson 

21 

Missouri 

St. Louis 

4 

Montana 

Helena 

-17 

Nebraska 

Lincoln 

-4 


State 

City 

(°F) 

Nevada 

Reno 

2 

New Hampshire 

Concord 

-11 

New Mexico 

Albuquerque 

14 

New York 

Buffalo 

3 

New York 

New York 

12 

North Carolina 

Raleigh 

16 

North Dakota 

Bismarck 

-24 

Ohio 

Columbus 

2 

Oklahoma 

Tulsa 

12 

Oregon 

Portland 

21 

Pennsylvania 

Philadelphia 

11 

Pennsylvania 

Pittsburgh 

5 

Rhode Island 

Providence 

6 

South Carolina 

Charleston 

23 

South Dakota 

Sioux Falls 

-14 

Tennessee 

Chattanooga 

15 

Texas 

Dallas 

19 

Texas 

San Antonio 

25 

Utah 

Salt Lake City 

5 

Vermont 

Burlington 

-12 

Virginia 

Richmond 

14 

Washington 

Seattle 

28 

West Virginia 

Charleston 

9 

Wisconsin 

Madison 

-9 

Wyoming 

Cheyenne 

-6 


call a local fuel merchant or wood dis- 
tributor. In southern New Jersey, oil 
currently sells for about $1.10 per gal- 
lon, wood sells for about $100 per cord. 

To calculate the price of gas or elec- 
tricity, you’ll need to call your local util- 
ity. Ask them to read you their schedule 
of residential rates. 

Rates usually consist of a fixed ser- 
vice charge, varying charges per therm 
or kilowatt-hour depending on the level 
of consumption, and a fuel surcharge. 

You enter this data at Line 230 (for 
gas) and Line 410 (for electricity). 

For natural gas, the cost in southern 
New Jersey for the first 33 therms is 
$26.30. This is entered as S. 

Above 33 therms, the charge is 60.5 
cents apiece. This amount is entered as 

Q. 

Currently, there is no fuel surcharge. 
So zero was entered as R. 

For electricity, the service charge (S) 
is $3.98, the first 500 kilowatt-hours 
cost 8.856 cents apiece (R), all others 
cost 6.499 cents apiece (Q), and there is 
a fuel surcharge of -.329 cents per 
kilowatt-hour (P). 

The surcharge in this example is a 
negative number because electric cus- 
tomers in southern New Jersey cur- 



Now, here’s your opportunity to have PCM — The Portable Computing Magazine delivered to your home 
or office each month! 

PCM will bring you the finest and most up-to-date information available anywhere for your TRS-80 
Model 100 Portable Computer. Whether your interest is programming, using the Portable Computer’s 
fabulous built-in functions or communicating with other Portable owners, PCM is for you. 

Each month we’ll bring you a host of articles, ready-to-run programs for busi ness and professional use or 
just plain fun. And each article will be in an easy-to-read style... not computerese 

Subscribe to PCM today! A dozen issues are only $28 ($35 in Canada and Mexico). 
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rently are earning a credit due to an 
overcharge last year. Normally, it would 
be a positive number. 

If your rates seem lower, remember 
that New Jersey has among the highest 
electric and natural gas rates in the 
nation. 

Between Lines 240 and 270, and Lines 
415 and 445, gas and electricity con- 
sumption is distributed proportionately 
for each of the six heating months. 

The symbols represent the months as 
follows: 


Z = October: 

Y = November: 
X = December: 
W = January: 

V = February: 
U = March: 

T = April: 


9 percent 
1 1 percent 
18 percent 
20 percent 
18 percent 
14 percent 

10 percent 


Now, you want to find out how much 
heating your house would cost with 
natural gas. The screen asks whether 
you want to compare other fuel. You 
enter “Y” for yes. 

It then asks for the BTU content of 
your existing fuel, in this case, 1 39,400. 
Then, the efficiency (.76). 

Next, the computer asks for the BTU 
content of the alternative fuel, in this 
case 100,000. Then, the efficiency of fuel 
two (.65). 


COMP OTHER FUEL (Y/N) Y 
BTU CONT (FI): 139,400 

EFF (FI): .76 

BTU CONT (F2): 100,000 

EFF (F2): .65 

ALT FUEL: 1517.66 

WANT G, O, E, OR W ?: G 

ANN COST (G): $962.55 


You may have to tinker with this part 
of the program. The pattern of energy 
use may be different in your locale. 

In Florida, for instance, there may be 
no need to heat in October, March, and 
April. 

Now, let’s run through an example. 
First, we’ll assume you know last year’s 
fuel consumption. Let’s say you used 
1 ,000 gallons of oil. 

RUN 

FUEL COST ESTIMATOR 


TOTAL FUEL: 1,000 

WANT G, O, E, OR W O 

$ PER GALLON? $1.10 

ANN COST (0): $1,100. 


You can also compare wood or base- 
board electric heater. 

When you do, the totals are: 

ALT FUEL: 8.50 

ANN COST (W): $815.04 

ALT FUEL: 32,938.57 

ANN COST (E): $2,142.66 

So we find that wood is the cheapest 
source of heat, followed in order by 
natural gas, oil, and electricity. 

If you don’t know last year’s fuel bill, 
use the heat loss method. 

KNOW TOTAL FUEL? N 

HEAT LOSS METHOD 

BTUS PER HOUR? 50,000 


DEGREE DAYS? 4,600 

DESIGN TEMP? 7 

EFFICIENCY? .76 

BTU CONT.? 139,400 

TOTAL FUEL = 854.14 

WANT G, O, E, OR W? O 

ANN. COST (O) = $1,024.97 


COMP OTHER FUEL? (Y/N) N 

If you want to compare other fuels 
using the heat loss method, you have to 
go back and use the formula with each 
alternate fuel because of the mathe- 
matics. 

Try natural gas this time. The data is 
the same except for the efficiency and 
the BTU content. 


HEAT LOSS METHOD 


BTUS PER HOUR: 50,000 

DEGREE DAYS: 4,600 

DESIGN TEMP: 7 

EFFICIENCY: .65 

BTU CONTENT: 100,000 

TOTAL FUEL: 1392 

WANT G, O, E, OR W? G 

ANN COST (G): $886.64 


For wood and electricity, you get the 
following results: 

TOTAL FUEL: 8.22 

ANN COST (W): $822.65 

TOTAL FUEL: 26,513.85 

ANN COST (E): $1746.26 


Once again, wood emerges as the 
favorite, electricity as the laggard, with 
gas and oil in between. 


10 CLS 

15 DEFINT L , 0 , M 

16 DEFSNG F 

20 PRINT @50 , "FUEL BILL ESTIMATOR" 

40 PRINT6123, "Total Fuel=A Heat Loss 
Method=B" 

45 PRINT6210, “(Enter A or B)":INPUTA$ 

50 IF A$=" A"60T0 80 

51 IF A$= " a " OR A$="b" THEN 60SUB 70 

53 CLS: 60SUB 800: PRINT6280, "Btus per ho 
ur: ": INPUT H 

54 CLS: PRINTS280, "Degree Days: " : INPUTD 

55 CLS: PRINTS280, "Design Temp :": INPUTT 

56 CL5:GOSUB700:PRINT@280, "Efficiency:" 
: INPUTE 

57 CLS: GOSUB700: PRINT@280, "BTU Content 
of Fuel: ": INPUTC 

60 F=H*D*24/< <68-T>*E*C> : BEEP: CLS: PRINT® 
120, "TOTAL FUEL (HEAT LOSS METHOD) : "}F:G 
OTO200 

70 CLS:PRINT@160, "PLEASE USE CAPITAL LET 
TERS": FOR X = 1 TO 1000:NEXT X s GOTO10 


80 CLS: PRINT @120, "Total Fuel INPUT F 
85 GOTO 200 

90 F*DD: BEEP: CLS: PRINTS 160, "Alternate Fu 
el : " 5 F 

200 PRINTS280, "Want Gas (G) , Oil (0), E 
lectricity (E), or Wood (W)":INPUTA* 

202 A=.09*F:B=. 11*F:C=. 18*F: D = . 20*F: E = . 1 
8*F : 6= . 14*F:H=. 10*F 
205 IF A$*"0" THEN 300 

207 IF A$="E"THEN 410 

208 IF A$="W"THEN 500 
230 S=29.22:QQ=.6360:R*0 

235 REM"RAT£S AS OF 5/83:SERVICE CHARGE 
INCLUDES FIRST 33 THERMS" 

240 Z=S+( (A-33)*QQ)+(A*R) 

245 Y=S+( (B-33) #QQ) + (B*R) 

250 X=S+( <C-33)*QQ)+(C*R) 

255 W=S+< (D-33)*QQ)+(D*R) 

260 V=S+< (E-33)*QQ)+(E*R) 

265 U=S+< (G-33)*QQ)+(G#R) 

270 T=S+( (H-33)*QQ)+(H*R) 

275 M=T+U+V+W+X+Y+Z 

280 CLS: BEEP :PRINT@ 160, "Annual Bill (G 
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as) =i " 5 M 
285 GOTO 520 

300 PRINT 0280, "Dollars per gallon:":IN 
PUT J : 0=F*J 

310 BEEP: CLS: PRINT 0160, "Annual Bill (0 
i 1 ) =*" ; 0 
320 GOTO520 

410 S=3. 98 : R=. 1 1 2536: Q=. 078391 :P=-. 01 591 
9 

412 REN"RATES AS OF 10/83" 

415 Z=S+(500#R)+((A-500)*Q)+(A*P) 

420 Y=S+(500*R)+((B-500)*Q)+<B#P) 

425 X=S+ (500*R) + ( (C-500) *Q ) + < C*P ) 

430 W=S+ (500*R) + < (D-500) *Q) + (D#P) 

435 V=S+ (500*R ) + ( (E-500) *Q) + <E*P) 

440 U=S+(500*R)+( (G-500)*Q)+(6*P) 

445 T=S+(500*R) + < <H-500)*Q) + (H*P) 

450 M=Z+Y+X+W+V+U+T 

455 CLS:BEEP:PRINT0160, "Annual Bill <Ele 

ctricity)“l";H 

460 GOTO 520 

500 CLS: PRINT 0 160 , "Dol 1 ars per cord":IN 
PUT K: L=F*K 

510 BEEP: CLS: PRINT 0160, "Annual Bill (Wo 
od)=*";L 

520 PRINT: INPUT "Compare other fuel? (Re 
member NOT to use with heat loss method) 

< Y/N) " ; A$ 

530 IF A*="N"G0T0 10 
535 6OSUB700 

540 PRINT0280, "BTU CONTENT FUEL 1:":INPU 
TI 

560 CLS:GOSUB700:PRINT0280, "EFFICIENCY F 
UEL 1 : ” : INPUTE 
570 D=I#E:DD=F*D 

580 CLS: GOSUB700: PRINT0280, "BTU CONTENT 
FUEL 2:": INPUT I 

590 CLS:GOSUB700:PRINT0280, "EFFICIENCY F 
UEL 2:": INPUT E 


595 D=I*E 


600 DD=DD/D 
610 GOTO 90 

700 CLS:PRINT050, "BTUS EFFICIENCY" 

710 PR I NT080 , " GAS 100000 .6 

5 " 

720 PRINT0120, "ELEC. 3413 1. 

00 " 


730 PRINT0160, "OIL 139400 
76 " 

740 PRINT0200, "WOOD 20000000 
55 " 

750 RETURN 

800 PRINTS40, "INSULATION LEVEL BTUS" 
810 PRINTS80, "HIGH 37000 


820 PRINT0120, "MEDIUM 50000 

II 



C-05, C-06, C-10, C-12, C-20, C-24, C-30 


From the leading supplier of Computer Cassettes, 
new, longer length C-12’s (6 minutes per side) provide 
the extra few feet needed for some 16K programs. 

BASF-LHD (DPS) world standard tape. 
Premium 5 screw shell with leader. 

( <^> ) Internationally acclaimed. 

Thousands of repeat users. 

Error Free • Money back guarantee. 


, 500 C-12’s or C-IO’s — 38c each 

(w •labels, add 4 1 • Shipping $17 500 
500 Boxes 13C ea • Shipping $10 500 



TRACTOR FEED • DIE-CUT 
BLANK CASSETTE LABELS 

WHITE: $3.00/100 $20 00/1000 
COLORED LABELS • Pastels - 
Red. Blue. Green, Yellow, Lavender 
$4.00/100 $30 00/1000 


CASSETTE STORAGE CADDY 

Holds 12 cassettes Q c 

w/o boxes — 

Includes edge labels 
and index card 


FREE 

1 CADDY WITH EVERY 
4 DOZ. CASSETTES PURCHASED 



Call: 213/700-0330 

C>tT l VORKIO 


for IMMEDIATE SHIPMENT 
on Credit Card Orders 


ORDER 
NOW . . 


9525 Vassar Ave#P3 
Chatsworth, CA 91311 


ORDER FORM ■ 


ITEM 

1 DOZEN 

2 DOZEN 

TOTAL 

C-05 

□ 700 

□ 13.00 


C-06 

□ 700 

□ 13.00 


C-10 

□ 750 

□ 14 00 


"C-12 

□ 750 

□ 14 00 

□ 1700 


C-20 

□ 900 


C-24 

□ 900 

□ 17 00 


C-32 

□ 11 00 

c 21 00 

'□ 400 

-- 

Hard Box 

□ 250 

White Labels 

□ 3 00.100 

u 20 00 1 000 


Colored Labels 
Color 

n 4 oo' too 

; ; 30 oo iooo 


DESCH.PTKX 

PBlCE 

quantity 


Storage Caddy 

295 









SUB TOTAL 


Calif residents add sales tax 


Shipping /handling (any quantity — using pnces above) 

3 50 

Outside 40 Continental States — Additional SI per 
caddy, per doz cassettes or boxes 


total_1 



Each cassette #P3 
includes two YORK 10 
labels only Boxes are 
sold separately We 
prefer to ship by UPS 
as being the fastest and 
safest If you need ship- 
ment by Parcel Post, 
check here Q 

NOTE Additional 
charges outside 48 
Continental States 
Shipments to AK. HI 
and USA possessions 
go by Priority Mail 
Canada & Mexico— 
Airmail. 

All others— Sea Mail 


CHECK OR M O Charge to 

ENCLOSED □ Credit Card: VISA □ MASTERCARD □ 
□ PLEASE SEND QUANTITY DISCOUNTS 


Ask about our 
DUPLICATING 
SERVICE 


Card No Exp. 

Name 


Address 

City ...... State/Zip 


830 PRI NTS 1 60 , " LOW 75000 B Signature Phone 

" 0 Computer make & model Disk? (y/n) 

840 RETURN 333 
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H ave you been wondering what 
good you’ll get from that socket 
on the Model 100 protected by 
a black plastic cover labeled BCR (for 
bar code reader)? Well, wonder no 
more. 

Another reason your 100 was such a 
great buy is that there are two bar code 
readers now available for the PoCo that 
not only promise to open up the tech- 
nology to smaller businesses, but to 
individuals as well. Besides the usual 
applications like sales and inventory, 
what that means (in the very near future) 
is no more keyboard entry for program 
listings! Magazine program listings will 
soon carry extra bar code pages to allow 
you to “wand-in” the program. It also 
means you can create your own bar 
codes on a good quality dot-matrix 
printer . . . opening up all kinds of 
possibilities. PCM is out in the forefront 
with a review of the first bar code reader 
to hit the market for the Model 100 
(from B-T Enterprises . . . more on the 
that in the Product Review section). 

First, some bar code basics 

Bar codes have been around since the 
late ’60s. Today, 144 companies now list 
themselves in the bar code manufactur- 
er’s guide, and there’s a bimonthly for 
the industry called Bar Code News. But 
its very popularity has created dozens of 
different “languages” — the white and 
black lines that end up representing 
numbers and letters, or even entire 
BASIC statements. UPC, or Universal 
Product Code, has become the retail 
standard. Supermarket scanners are now 
routine, but it was only the summer of 
1974 that the first UPC scanners were 
commercially installed. Bar codes are 
now used by many other industries- 
going by names like 3 of 9, 2 of 5, 2 of 7, 
N ATI, EADN, JAN, LOG MARS, Coda- 
bar, and Plessey. Although fulfililng 
different functions, each bar code sym- 
bology operates on the same principal: 
pass a light source and a light detector 
close enough to the alternating white 
and black areas to be read, literally, as a 
code (sort of like the old Morse tele- 
graph code of dots and dashes). In this 
case, it’s a computer “telegraph opera- 
tor” that then matches up the proper 
numbers and words to tell us humans 
what that code means. 

But telegraph codes are to bar codes 
as a biplane is to a 747. For example, the 
bar code pattern dubbed “3 of 9” (in 
which there are nine vertical bars in 
each code and three of them are wide) 
has the possibility of 512 combinations 
or characters (twice as many as the 
entire ASCII set of 256). Mainly because 
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Your Me 


By Jim Hawk 


Soon, the new bar code technology will elim- 
inate much of the laborious process of 
keying in program listings and provide for 
easy transfer of other important data. 






For 

: del 100 





(Jim Hawk has been working in radio 
news for the past 12 years, and has a 
science and electronics background . He 
also does freelance writing in Washing- 
ton, D.C.) 


the bar codes would be impractically 
long, only 43 alphanumeric characters 
are presently used. 

What’s it for? 

The main intent is for applications 
like billing, inventory, retailing and man- 
ufacturing. But most exciting to the 
non-business BCR user is the promise 
of cheaply reproduced software. Word 
is out that direct programming of the 
100 via the bar code reader is just 
around the New Year’s corner. With a 
few zips of your BCR “wand,” you’ll 
soon be able to directly enter program 
listings without all the manual entry and 
near-inevitable human error, wear and 
tear to man and machine, and general 
frustration from a program that won’t 
run because a colon was typed in as a 
semicolon. (Bar codes have a built-in 
“check-digit,” theoretically meaning the 
reader will get the information exact, or 
beep at you to try it agan.) Gutenberg 
would be proud — his printed page (in 
this case, bar-coded page) offers to 
revolutionize software publishing, which 
up to now has mainly been confined to 
magnetic form. Whereas hundreds of 
cassettes of a piece of software might be 
turned out in a day, millions of pages of 
bar code could be printed in the same 
time. 

This is new to just about everyone, so 
don’t be embarrassed if you’ve never 
heard the term “wand” before. 1 dis- 
covered there’s a whole new technolog- 
ical lingo. 

A few definitions 

The wand is industry jargon for the 
hand-held unit that actually “reads” the 
bar codes. The wand, or scanner, con- 
nects to a decoder that times the binary 
l’s and 0’s. It’s connected via a 9-pin 
“data communication interface” (plug) 
and those signals enable the 100’s BASIC 
to make the final interpretation. The 
combination of scanner, decoder and 
interface make up the device accurately 
termed a “reader. ’’Trouble comes when 
you start having poor “resolution” — in 
this context, the minimum width that 
can be accurately scanned. Even high 
resolution scanners can be derailed by 
“voids,” or light areas in the bar, often 
caused by printing errors. “First Read 
Rate” is defined as the percentage of 
correct readings that will be obtained in 
one pass of the scanner over the symbol. 
(Once you master the steady, sweeping 
motion needed to get an acceptable 
pass, that rate should be around 80 
percent.) Another measure of BCR per- 
formance is “substitution error rate” — 
the ratio of the number of incorrect 



FUN! 

2 games packages for your 
relaxation and enjoyment: 


MODEL 100 Games #1 
Blockade - Your 'snake' grows longer 
as you hit the randomly appearing 
targets on the screen! A one or two 
player real-time game. 

Reversi - Outflank your opponent! Play 
againstthe computer or another human. 

Frankenstein Adventure - Find all 
of the necessary equipment to awaken 
the monster. 

Alexis Adventure - Sail the seas and 
traverse the islands to recapture your 
kingdom. 

MODEL 100 Games #2 
Maximum - Outscore your opponent 
or the computer by taking the higher 
point squares and leaving a low point 
choice for them. 

Checkers - The classic game! Play 
against the computer or against a 
human or have the computer play itself! 

Amazing Chase - Outrun two pur- 
suers in a maze in this real-time game 
with optional sound. 

Williamsburg Adventure - Steal, 
eat, shoot, and laugh to find the golden 
horseshoe! 

Choose either of the games packages for 
only $24.95! 


- a lot of software for a littfe silver 
See your dealer or; 

Write or calf us direct at PO. Box 21 101, 
Santa Barbara CA 93121 (805J 966-1449 
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New Tech Radio Shack’s BCR, just out, includes operational 
software and carries a price tag of under $100. 


entries. The widely tested 3 of 9 code 
(called Code 39) is said to offer one 
substitution error out of 3 million char- 
acters read. That compares to human/ 
keyboard “first read” error rate esti- 
mated around I to 250. 

Invasion of the Bar Codes 

Once you start looking for bar codes, 
they’re everywhere . . . like the one on 
the front of this very magazine — and, in 
fact, on virtually everything you might 
buy in the grocery store. Most of us use 
bar code technology so casually, we’re 
hardly aware of it — like supermarket 
checkout systems using laser bar code 
readers that tell what the item is and its 
price. (Instead of wands, they use a 
super-sophisticated moving laser beam 
to read the code.) 

Libraries, hospitals, auto manufac- 
turing, film developing, package deliv- 
ery — the list of bar code applications in 
business is astounding. But all that 
seems too high-tech and/ or high priced. 
That supermarket BCR cost thousands. 
Now, the stunning news from Tandy is 
that Radio Shack will sell a bar code 
reader (as of Nov. 30, 1983), about the 
size and shape of a small carrot, for 
$99.95 including the necessary software. 
Meantime, also hitting the market is B- 
T Enterprises’ version of a bar code 
reader, selling for the subject-to-change 
price of $279. 

Both firms are taking advantage of 
solid-state LEDs (or Light Emitting 
Diodes) that allow small size and low 
power consumption (as well as low 


price). Both products are to decode 
UPC and 3 of 9, meaning small busi- 
nesses can finally get in on a technoloy 
formerly for the Big Guys only. 

A bar code device can be important in 
dealing with the biggest buyer of all: 
Uncle Sam. The Pentagon now requires 
bar coding on many contractor-sup- 
plied parts and documents, it wouldn’t 
be Departmnt of Defense without an 
abbreviation: DOD’s standard is called 
LOGM ARS, which stands for Logistics 


Applications of Automated Marking 
and Reading Symbols. And you won’t 
just have to depend on other people’s 
bar codes — a dot matrix printer with 
graphics capability can let you make 
your own. (Maybe I’ll finally untangle 
my videocassettes!) 

Once the software becomes available. 
Radio Shack says any DM P-1 20 or up 
can do the job of printing bar codes, 
which are really just fancy graphics. As 
for program entry, it’s a matter of 
getting a standardized bar code system 
compatible with Microsoft BASIC . . . 
and therein lies a story. 

The Chicken or the Egg Syndrome 

This idea of bypassing keyboard entry 
in favor of bar coding has been around a 
long time. But the advent of actually 
programming personal computers by 
bar code is relatively new, and there 
have been some false starts. 

Carl Helmers, cofounder of Byte Mag- 
azine -, made the first effort back in the 
fall of 1976 when he got the idea to put 
out a magazine of bar-coded programs 
called Paper Bytes. It never caught on 
because home computes were more bul- 
ky as well as expensive. “It’s a chicken 
and egg thing, ’’says Helmers. But while 
Paper Bytes bit the dust, Helmers went 
on to form North American Technology 
Institute and the NATI bar code. Hel- 
mers is responsible for a PASCAL 
program/ report that I’m told* went into 
Radio Shack’s engineering development 
of the M 100. NATI bar codes appeared 
to be the best way of squeezing the most 
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programming in the least space, but it 
wasn’t quite right for Tandy’s applica- 
tions. That may explain why Radio 
Shack decided to adopt its own Tandy 
Code Standard. It is primarily the same 
as Helmers’ NAT1, but has an extra 
“bit” to indicate whether it’s a machine 
code or a BASIC code. Obviously, T andy 
has high hopes for its bar code reader. 

One good sign for the new generation 
of BCRs comes from Tandy’s Texas 
neighbor: Hewlett Packard. HP is the 
primary supplier of “wand” technology, 
and currently offers a super-sophistica- 
ted calculator/ computer (HP-41) that 
can be programmed via an optional 
wand. The limitation is that it reads HP- 
41 bar code only, and the programs are 
mostly engineering-oriented. 

Another factor pushing BCR progress 
is the home computer competition: a 
firm called Databar out of Minneapolis 
intends to market its own Opti- 
cal Scanning Reader (dubbed OSCAR) 
alleged to be compatible with Atari, 
Commodore, the no-longer-manufact- 
ured Texas Instruments 99/4A, and 
possibly Radio Shack’s own Color 
Computer. 

The company also has announced it 
will publish a $ 1 20-a-year barcode mag- 
azine, containing programs that OSCAR 
will theoretically transfer to compatible 
computers via the cassette port. Release 
date is early 1984, although no actual 
hardware has yet been demonstrated. 

Bar codes have even become “child’s 
play.” The Texas Instruments product 
called “Speak and Read” is still being 
sold (slowly), touting storybooks with 
bar codes on the bottom of each page. 
The child is supposed to rub the toy’s 
wand over the bar code, and a voice- 
synthesis speaks the words to children. 
It seems like a good idea, but wand 
readers are fussy about the speed they’re 
passed over bar codes, and kids get 
fussy when their toys act up; my own 
spot-check found only a few in stores 
is season. 


Leave it to Tandy to come up with a 
true price vs. performance break- 
through. Although the 1984 computer 
catalog says the new bar code reader 
will decode N ATI (as well as UPC and 3 
of 9), Tandy decided enough modifica- 
tions were needed to justify a new code. 

Roy Irvine is Tandy’s bar code buyer, 
and says the so-called “Tandy code” will 
be broad-based: allowing either direct 
entry of machine code, ASCII text, or 
“tokenized” BASIC. Tokenizing is a way 
of cutting down on the number of bar 
codes needed for a given size program: 
instead of using at least five characters 
for “GOSU B,” you turn it into a one or 
two character bar code. On a 4K pro- 
gram this adds up quickly. 

Experiments have already been done 
on the 3 of 9 code, allowing a person to 

“Once the software 
becomes available, 
Radio Shack says 
any DMP-120 or 
up can do the 
job of printing 
bar codes . . .” 

wand-in a program listing. But it’s a 
very inefficient code for that kind of 
application. Tandy’s plan is to market 
its own bar-code system, with software 
that can properly tokenize the various 
forms of BASIC used in the TRS-80 
computer line. In other words, with the 
eventual listing of programs in Tandy 
bar code, a guy with a Model 100 and a 
Model II could “wand it in” on his 
PoCo, and then transfer it to his mini- 
mainframe. It means bar coding would 
be opened up to a much wider market 
than just the 100. It also likely will mean 
further price cuts for BCRs. Irvine sums 
it up: “We’re trying to get the cost down 


so everybody can buy one.” 

What can this new PoCo peripheral 
do or not do? It can decode several of 
the most popular industrial bar codes. It 
will soon be able to enter BASIC pro- 
grams into the M100. It won’t replace 
the cassette machine, or disk storage; 
it’s still a manual system, and one 
estimate says it will take two to four 
minutes to enter a 4K program. No, the 
bar code reader will just be an excellent 
addition to an already excellent com- 
puter. And, there’s no law against saving 
the program to cassette after you’ve 
entered it once by BCR. Soon, you 
won’t have to decide that you really 
want a particular program listing before 
laboriously typing it in— just wave your 
“magic” wand. 

Future Tech 

Market Street Systems out of Ports- 
mouth, N.H., is already selling a dedi- 
cated Model 100 and industrial-grade 
bar code printer that generates every 
major bar code, but the price is indus- 
trial-grade, too: $6,800. 

A glimpse of what the future holds 
comes from Spectra-Physics’ industrial 
hand-held laser scanner. It looks exact- 
ly like something from the set of Star 
Trek, resembling the fictional “Phaser.” 
And the advantages over a wand are 
numerous: it can be held up to 38 inches 
away and still read bar codes; it’s faster, 
and can read through plastic wrapping 
and smudged codes that a wand would 
never be able to. This particular unit is 
for industrial applications, and costs 
more than the Model 100. But with 
advances in solid-state lasers (the one 
now marketed uses a miniature helium- 
neon gas laser) both the size and price 
will likely come down. 

At the very least, future-tech products 
like this point to ever-expanding use of 
bar codes by all kinds of retailers. And 
when the price is right, can the hand- 
held laser scanner then be far off? 

nrav i 


8K MEMORY MODULES FOR THE 
TRS-80 MODEL 100 PORTABLE COMPUTER 




$85 each, 2 or more $80 each 

Exact Replacements for RS Memory 
Easy To Install • Warranty Included 
VISA and MC Accepted • CA Residents Add 6.5% Sales Tax 

IOTA SYSTEMS • 1690 Day Valley Road • Aptos, CA 95003 • (408) 684-0482 

Prices Subject To Change Without Notice • TRS-80 is a trademark of Tandy Corporation 
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T his short routine will renumber 
the lines of your BASIC programs. 
First store the program you wish 
to renumber in text as a .DO file. You 
will need enough space for another file 
of the same size. Renum generates the 
new file, named “NEW, ’’and the old file 
is unchanged. 

Next, execute Renum and answer the 
first question with the name of the file 
you wish renumbered. Give the name 
only — not the file extention. 


The next two questions asked are for 
first line number you wish and the 
increment. After that just sit back and 
wait. Each time “WORKING . . .” 
flashes on the display, a new line is being 
scanned. 

This routine checks for spaces be- 
tween target numbers and commas, as 
in ON GOTO statements. This space 
checking takes time, so if you arc sure 
there are no spaces to worry about then 
remove lines 190 and 250. My time test 


took 2 minutes 23 seconds to renumber 
5.5K of basic in text form with space 
checking. Another way to save time is to 
remove the “RESTORE AND RE- 
SUME” from the data staement in line 
20. Be sure to adjust the “FOR S=6” to 
“FOR S=4” in line 120. 

If there is an undefined line in your 
program, Renum will stop and point it 
out to you. You will then have to start 
over. When the run is completed, 
Renum will beep at you and display 
“COMPLETED.” 


The listing: 

0 BASIC LINE RENUMBER ROUTINE 
by: 1. randall 

12306 teri. dr. 
poway, ca. 92064 

10 CLEAR1000:MAXFILES=2:DEFINTA-Z 
20 CLS:F0RI=1T06:READA$ (I) :NEXT:DATA 60T 
0,G0SUB, RESTORE, THEN, ELSE, RESUME 
30 INPUT"FILE NAME TO BE RENUMBERED: " ; F 
N* 

40 FN*="RAM: "+FN$:0PENFN$F0RINPUTAS1:D=1 
50 I FEOF ( 1 ) THENCLOSE: 6OTO60ELSELINE INPUT 
#1,A$:D=D+1:GOTO50 

60 D=D-2: DIMAID, 1 ) : 0PENFN*F0RINPUTAS1 : PR 
INT 

70 INPUT"FIRST LINE NUMBER DESIRED: " ; N 
80 PRINT: INPUT"LINE INCREMENT DESIRED: " 
5 I:N=N-I:FORK=0TOD:LINEINPUT#1 , A#:N=N+I 
90 A(K,0)=VAL(LEFT$(A$,5) ) : A <K , 1) =N: NEXT 
100 CLOSE : OPE NFN$F OR INPUT AS 1 : 0PEN"RAM: NE 
W.DO"FOR0UTPUTAS2:FORK=0TOD:CLS 

110 PR I NT§50, "WORKING " : L INE I NPUT#1 , 

A*:L2=LEN(STR$(VAL(LEFT*(A*,5) ) )>:A*=STR 
*(A(K,1))+MID$(A$,L2) :L=LEN(A$) 


120 F0RS=1T06: X=1 

130 X = INSTR ( X , A$ , A$ < S) ) : IFX=0THEN180 
140 X=X+LEN(A$(S) ) 

150 IFMID* <A$,X, 1) = " 11 THENX = X + 1:GOTO150 
160 IFMID$(A$,X,1)*>"0"ANDMID$(A$,X,1)<= 
"9"THENGOSUB190ELSE130 
170 IFX<LTHEN130 

180 NEXT : PR I NT#2, A$: NEXT: BEEP :CLS: BEEP :P 
RINT :PRINT:PRINT" COMPLETE 

D" : END 

190 IFMIDI(A$,X,1)=" "THENX=X+1:GOTO190 
200 L=LEN(A$):A2=VAL(MID$(A$,X,5) ) :A2$=S 
TR$ ( A2 ) : A2$=MI D$ ( A2$ , 2 ) : L2=LEN ( A2$) :C=-1 
210 C=C+1 : IFC>DTHENSOUND8000,80:PRINTA$: 
PRINTTAB (X-2) ; " A "sPRINT M ***** UNDEFIN 
ED LINE NUMBER ***#*":END 
220 IFA2=A(C,0)THENA3$=STR$<A(C, 1) )ELSE2 
10 

230 A$=MID$(A$,1,X-1)+MID$(A3$,2)+MID$(A 
% , X +L2 , L ) 

240 X=X+LEN(A3$)-1 

250 IFMID$ < A$, X , 1 ) *" "THENX = X + 1:GOTO250 
260 IFMID$<A$,X,1)=" ,"THENX = X + 1: GOTO 190 
270 RETURN 
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Snoop-Proof 
Your Memory! 

By Richard T. Rogers 

Passwording your Model 100 can keep unwanted snoops from gaining access to 
your privileged data. 


I love my Model 100. Without get- 
ting into the prose of Shakespearian 
sonnets, 1 cannot count the ways. 
But if I had to pick a favorite feature, it 
is its ability to “telecommunicate.” 

My work involves travel, and I spend 
much time in airports, strange hotels, 
and even stranger cities. Before leaving 
on a trip, I load up all the “local” tele- 
phone numbers for the communication 
nodes in the places I will be visiting. 1 
put these numbers in my ADRS.DO file 
. . . and thereafter “punching in” is 
simply a one button exercise. I check 
into three on-line data bases daily, and 
the Model 100's ability to remember 
phone numbers, passwords, and log-on 
procedures is wonderful; it is also the 
source of my primary concern about the 
machine. In what must be a corpo- 


rate oversight, Tandy forgot to put any 
kind of security on this marvelous box. 
As a result, anyone who gets their hands 
on my machine (or yours) can get at 
everything in the machine . . . including 
my passwords, ID numbers, and other “keys” 
to some pretty expensive (and/or privi- 
leged) stuff. At the moment this really 
isn’t much of a problem since very few 
people today know how to turn on the 
Model 100, and even fewer appreciate 
the nuance of telecommunicating. But 
while the chances of somebody stealing 
and using this information are remote, 
the consequences are sizeable (one of 
my data bases charges $350 an hour!). 

As smart as the Model 100 is, there 
must be some way to take care of this 
problem . . . and there is! Why not teach 
the Model 100 to protect itself from 
snoops? It can be done with a very sim- 


ple one line BASIC program. And here it 
is: 

1 IFINKEY$=“z”THENMENUELSE 
POWEROFF,RESUME:GOT01 

or, the less memory-efficient but more 
readable: 

1 IF INKEY$ = “z” THEN MENU 
ELSE POWEROFF, RESUME: GO 
TOl 

(I suggest you SAVE this program to 
memory under the name of Z.BA ... do 
this with a S AVE“Z” command.) 

All this program does is check the 
keyboard on power-up to see if the 
operator is holding down the “z” key (ie, 
the lowercase “z,” not “Z”). If this key is 
being depressed, the program branches 
to the MENU at which point the opera- 
tor can run the Model 100 in an unres- 
tricted fashion. But if the “z” key is not 
being depressed when this program runs, 
the machine automatically shuts itself 
off. 

This software driven power-down pro- 
cess is a little unusual, however. Notice 
that the POWEROFF statement is fol- 
lowed by a RESUME. If you check 
your BASIC Reference Manual, you will 
find that the Model 100 continues to 
hold your BASIC program even after 
POWEROFF, and when you turn the 
power back on, the machine continues 
to run whatever part of the program 
follows the RESU ME statement (in this 
case, the GOTOl statement). In other 
words, the next time you turn on the 
machine it will not display the typical 
MENU. Instead, it will continue run- 
ning your little BASIC program, and 
immediately executes the GOTO state- 
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ment which causes the same one line 
program to run again. This, in pro- 
gramming terms, is called a loop. The 
result now is that the program once 
again checks to see if the “z” key has 
been depressed and, if not, shuts off the 
machine once again. 

So far, we have taught our machine to 
turn itself off (under appropriate cir- 
cumstances). We have done this with a 
BASIC program which contains one con- 
ditional branching statement (an IF/ 
THEN statement). And by now some of 
you are surely asking what happens if a 
knowledgeable snoop gets into our ma- 
chine, suspects what is going on, and 
attempts to power-up with the BREAK 
key depressed? 

IF you understand BASIC program- 
ming, the answer is obvious. You will 
interrupt the program in mid-step be- 
fore the program has the opportunity to 
execute the POWEROFF command. In 
other words, your snoop will get control 
of your system, be able to leave the 
BASIC program and proceed through 
your MENU with aplomb. In short, all 
your passwording efforts have failed 
you. Is there anything that can be done 
about this? Or, putting it another way, is 
there some way to disable the BREAK 
key? 

After several inquiries to Tandy Cen- 
ter, self-appointed gurus, various spe- 
cial interest groups (S1GS) on Compu- 
Serve, etc., I finally discovered how to 
do this. I have not bothered to discover 
why or even how this works but I have 
found a way to disable the BREAK key. 
It is another simple BASIC statement 
which is: 

POKE 63056,128 

Anything you turn off you also want 
to turn on . . . and so the command to 
re-activate the BREAK key is: 

POKE 63056,0 

Try this little routine a few times to 
see if it works. Once satisfied that it 
does, RUN and next run the Password 
program. Now try running the pass- 
word program and interrupting the Z. BA 
program’s execution by holding down 
the BREAK key when you turn the 
machine back on again. It doesn’t work, 
does it? Now, just to be certain, go 
ahead and turn the machine back on 
with the “z” key depressed . . . you are 
back to the MENU now, aren’t you? 
One problem now is that your BREAK 
key is still disabled. There’s got to be 
some way to put the system back “where 
it belongs’’ if the user successfully passes 


the “password” hurdle. The way to do 
this, of course, is to restore the BREAK 
key just before calling the MENU pro- 
gram. 

Putting ail this together yields two 
programs, not one. Here they are: 

[OFF.BA] 

1 POKE63056,128:RUN“Z 
[Z.BA] 

1 IFINKEY$=“z”THENPOKE63056,0: 
MENUELSEPOWEROFF,RESUME: 
GOTOl 

Now when you turn off the system, 
simply RUN the OFF.BA program which 
is shown on the MENU. This will first 
disable the BREAK key and then run 
the password program itself. If you are 
not pressing the “z” key when you start 
this chain of events (and you normally 
wouldn’t be doing this), the machine 
will turn itself off and will be standing- 
by to re-run the Z.BA program when- 
ever the power switch is turned on 
again. 

As far as I know, the only way to 
crack this system is to hold both the 
BREAK key and the RESET button 
(on the back edge of Model 100) while 
you turn on the computer. Release the 
RESET button while continuing to de- 
press the BREAK key and you should 
(but no guarantees) interrupt the Z.BA 
program. After trying to crack open this 
system a few times, I should report to 
you that you are just as likely to make 
the whole machine lock-up tight, a not 
totally undesirable result if you think 
about it (the only person likely to be 
trying these convolutions is someone 
who doesn’t know your password any- 
way). 

While on this subject, please remem- 
ber that turning on the machine with the 
CTRL and PAUSE keys depressed will 
eradicate ALL your Model 100’s mem- 
ory (including the OFF.BA and Z.BA 
programs themselves). Again, you may 
be in trouble if someone does this to 
your machine; but in these circumstan- 
ces, a complete memory wipe-out may 
be preferable to saving the system intact 
for someone else to mess with! 

One final note. Remember that the 
OFF program only works if you turn off 
the machine by running this program. 
What happens if you power down with- 
out running your security system? Ob- 
viously, the machine goes to sleep with- 
out any password protection program 
in it, and then you are back to a com- 
pletely unsecured system. Obviously, if 
you want full password protection, you 
should only exit a session on the Model 


100 by running the OFF.BA program. 

There is, however, one other thing 
you can do to help avoid the consequen- 
ces of your absent-mindedness (i.e., the 
failure to follow this simple turn-off 
process). This method is to make the 
OFF.BA program run automatically 
whenever the machine is turned on. You 
may do this by establishing OFF.BA as 
an IPL file. 

IPL stands for Initial Program Load; 
it is an instruction which the machine 
carries in its memory and executes when- 
ever the Model 100 is turned off while 
running any “applications” program . . . 
and then is turned back on again. To 
invoke this function, simply enter (from 
BASIC). 

IPL “OFF. B A”<ENTER> 

Now, if you turn off the machine while 
using the BASIC interpreter — and then 
turn it back on again — MENU will 
briefly appear on the screen and then 
the machine will suddenly turn itself off. 
Accordingly, the IPL“OFF.BA” com- 
mand makes the system almost fool- 
proof (but not quite). 

The IPL system only executes if you 
turn off the machine while running an 
applications program (eg, TELCOM, a 
text file, BASIC, etc.). If, perchance, you 
return to the machine’s main MENU 
and then turn off the machine using the 
switch on its side, the Model 100 will not 
thereafter execute the IPL instruction. 
In short, the IPL system, when used 
with the password program, will pre- 
vent you from most— but not all— of 
your oversights. Until I find some way 
around this, you will just have to learn 
not to turn off the machine using the 
manual switch whenever the MENU is 
being displayed. 

This discussion of passwording has 
somehow slipped into a tutorial on 
BASIC programming. To those of you 
who have no interest in BASIC, 1 apolog- 
ize. Your salvation is simply to type in 
the programs, follow the rest of the 
instructions, and don’t bother with wor- 
rying about exactly how or why all this 
password stuff works. But for those of 
you who are interested in writing your 
own Model 100 programs, perhaps 
you’ve learned something new. This 
may be your first exposure to the PO WE R- 
OFF, RESUME, IPL and POKE com- 
mands. Fear not; they’re not unfathom- 
able. And for those of you who already 
understand BASIC programming, well, 
you’ve probably already thought of sev- 
eral changes and embellishments to this 
program you wish to make. Go to it! 

I 
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Reviews 


Hardware 

Bi-Tech Bar Code 
Reader — The 
Emerging 
Technology 

First, the product supplied was in its 
final hardware form, but the software 
was not. BT President Thomas Vande- 
Stouwe says the main holdup is getting 
the accuracy up to speed. He told me the 
software supplied for this review has a 
substitution-free “first read rate” of only 
87 percent while the industry standard is 
99 percent — and he won’t ship any units 
for sale until the software “loops” are 
tightened up. Keeping that in mind, 
here’s what I found . . . 

The hardware is simplicity itself: just 
press the trapezoid-shaped plug into the 
BCR socket. The wand is easy to use 
and comes equipped with a power- 
saving wide-bar switch so you can turn 
the reader on only when actually scan- 
ning 3 of 9 code. Once 1 got the bar- 
reading program and its machine-lan- 
guage routine loaded from cassette, the 
wand worked the first time 1 tried it. A 
black outline appears around the screen 
and the words “Scan bar code” ap- 
peared. Following advice in the scanty 
directions to zip over the bar codes like 
“striking a match” produced the most 
reliable results. If you stray from the bar 
code or don’t zip over the bar codes at 
the right speed, the Model 100 beeps 
and flashes “Error.” But there’s the 
rub — sometimes I’d get a appearing 

where a letter or number was supposed 
to be and not an error message. A cou- 
ple of times complete garbage would 
appear. This is a software problem that 
must be solved. Documentation is vi- 
tally important, and was lacking in this 
pre-production sample ... I got the 
Epson HX-20 manual, but it had mostly 
general information and specifications — 
not the user-friendly instructions I’d 
hoped for. Warning: I tried to run the 
Bar-reading program before calling the 
company for directions and learned a 
real lesson: never run a program you’re 
unsure about. Because I neglected to 
enter the machine-code program that 
accompanied BAREAD, 1 totally wiped 
out my memory BK address book and 


all. Also, once the program starts run- 
ning, provisions were not made to 
“break” — in fact, the entire keyboard 
was disabled so 1 had to hit Reset to get 
back to the main menu. This is typical of 
bar code reading programs I’m told — 
the machine language has to be so fast, 
it ignores all other inputs. Anyway, BT 
is working on it. 

Another product from BT Enterprises 
was a separate program to print 3 of 9 
bar codes with a Radio Shack series 
DMP printer. It was written by a former 
Tandy quality assurance specialist for 
the Model 100 project, Joey Rodrigue, 
now living in Hot Springs, Arkansas. 
BT intends to sell his program for 
$29.95 — a price low enough to combat 
the scourge of copying that plagues 
software authors. 

Menus prompt you for title and head- 
er, and in seconds you see bar code 
appearing on paper, finishing up with 
the text in human-readable letters and 
numbers right underneath. Although 
no documentation was supplied with 
this prototype, I had it up and running 
easily because the program only re- 
quires you to type in what you want 
bar-coded. The program worked just 
fine on a DMP 200 or 500, but my 
DM P-1 20 was balky. Instead of print- 
ing (in condensed mode) one thin line of 
bar code and then returning the carriage 
with a partial line feed for another pass 
to make the bars taller, my printer 
would “wrap around” the repeats — 
leaving me with six thin versions instead 
of one thick one. 1 phoned the author 
about the bug, and he had it corrected 
within 24 hours by making three simple 
changes and it works perfectly. How- 
ever, the bar-reading software isn’t quite 
a perfect match yet, because of the fact 
that upon reading verified code back 
through the BT wand, I’d get errors like 
a “/ D” instead of a “$” sign — again 
blamed on the pre-production reader 
software. 

Overall, the bar-code wand hardware 
is magnificent: well designed, easy to 
handle, and lightweight but rugged. It 
also looks quite similar to the one Radio 
Shack is introducing — and I’d speculate 
we’ll see the same “HP” logo (Hewlett 
Packard) on the business end if the 
replacable tip is unscrewed. The bar- 
reading software is another story — for 
bar codes to catch on, they’ll have to be 
just as accurate an input as a cassette 


machine. This version had accuracy 
troubles, and will have to be finalized. 
The bar-code printing software is a real 
bargain, and though it’s “3 of 9 code” 
only, it represents an excellent way to 
get started in bar codes. 

(Model 100 Bar Code Reader from 
Bi-Tech Enterprises, Bohemia, NY, 
$279, and Bi-Tech Barprinting pro- 
gram for Radio Shack DMP printers, 
$29.95) 

—Jim Hawk 

SorrwARE 

Data+ and Sort2+ 
A Database System 
For the M100 

T he Portable Computer support 
Group has released DA TA+ and 
SORT2+ , two additional pro- 
grams in their series of business related 
software for the Model 100. According 
to their advertisement in PCM, DA TA+ 
and SORT2+ are now stand-alone en- 
hancements of the programs PUT+ and 
SOR 74-, both part of the Businesspak+ 
series (PCM, August 1983). DATA+ 
makes the Model 100 a true database 
which has full editing and printing fea- 
tures and the capability of creating 
“form” letters when used with PCSG’s 
WRITE+. SORT2+ is an expanded 
version of SORT+ with lower memory 
requirements and better sorting rou- 
tines. 

DA TA + 

The software is furnished on tape 
enclosed in an 814" x 11" attractive 
binder containing 45 pages of excellent 
documentation. Three programs, an ad- 
dress file, a BASIC program and a ma- 
chine language program, must be loaded 
from tape to use DATA~\~. Two addi- 
tional programs are available for creat- 
ing note files and inventory files. The 
loading instructions are very clear and 
DATA~\~ uses a little less than 7K of 
memory. Though the manual does not 
say, 24K of memory will be required for 
easy operation of DATA+. 

The step-by-step documentation 
shows you how to easily use the address 
file feature of DATA+. When the 
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P+ADRS program is used, an address 
label format file is created and appears 
on the screen ready to be filled with 
data. Prompts are shown for each field 
which consists of first and last name, 
company, street, city, state, ZIP code, 
phone number, and two useful features, 
a memo space, and a code section. All 
are displayed on the screen together in a 
nice arrangement using inverse video to 
show the length of each field. When you 
have entered the data, F3 saves it auto- 
matically to the file. The files created are 
compatable with the built-in programs 
of the Model 100. If you wish to use the 
auto-dial feature of the Model 100, the 
manual reminds you to put “” in front of 
the phone number. If the prepared for- 
matted screen is not satisfactory for 
your use, custom formats are prepared 
and saved easily. Up to 16 fields are 
supported, but you are limited to screens 
of 40 x 8. 

What can you do with the DATA+ 
files you have created? You can review 
the files easily using the FI key to either 
selectively or sequentially move through 
the file. The file can be edited anytime 
simply by erasing the field using the 
ESC key and entering the new data, or 
deleting and adding only those charac- 
ters to be changed, remembering to save 
each modified file with the F3 key. The 
files can be printed out to your printer, 
another file, or to tape. You can select 
the fields to be printed, and in which 
order or sequence, and which data or 
record from the files to print. The prin- 
ter fields can be set according to margin 
desired and number of lines, which is 
especially useful for using the data files 
for addressing form letters. The files can 
be compactly printed which allows the 
unnecessary spaces between the fields to 
be deleted. 

DA TA+ will also merge any informa- 
tion from any record file that was 
created with DA TA+ into any text pre- 
pared from a text writer such as PCSG’s 
WRITE+ , The caret symbol (>) and the 
field number allow for inserting into 
text any of the field data information 
from a designated record, thereby creat- 
ing customized forms and reports. This 
feature alone is worth the price if you 
have standardized letters or forms which 
require data to be changed for each let- 
ter. The DA TA+ files are not limited to 
just address labels; with the capability 
of creating your own formats, such 
items as scientific reports, recipes, in- 
ventory lists, and personal notes can all 
be put into a form type letter. Even cus- 


tomized “junk mail” reports with ad- 
dresses and the body content changed 
can be effectively created. 

SOR T2+ 

DATA+ created files can be rapidly 
sorted using SORT2+, a IK program 
loaded from cassette tape. After enter- 
ing SOR T2+, you are prompted for the 
file you wish to sort and then the field 
you wish to sort. Quickly and accurately 
the file is sorted either alphabetically or 
numerically and in all uppercase fold, or 
uppercase ahead of lowercase. The re- 
cords must be of the same length. One 
very interesting feature of SORT2+ is 
;hat it will sort all numbers into the 
proper sequence regardless of how many 
spaces it has. No more numbers have to 
be entered as 00001. My church’s mail- 
ing list, which included birthdates of all 
the members (over 100) took seconds to 
sort all the birthdays by month and day. 

Both DA 7M+ and SOR 72+ are excel- 
lent programs for the businessman, man- 
ager, writer, and executive who desires a 
well-organized and efficient database 
program for the Model 100. DATA + 
ind SORT2~\r should be sold as a pack- 
age, as the SOR T2+ program is almost 
a necessity for handling large data files. 

(Portable Computer Support Group, 

11035 Harry Hines Blvd., No. 207, 

Dallas, TX 75229. DATA+ $59.95; 

SORT2+ $29.95) 

—Vincent Lord 

Software 

QuickPlot 

Provides Powerful 
Business Graphics 

Computer Solutions Company has 
recently released the QuickPlot/ 100 ver- 
sion for the Model 100 with a minimum 
of 24K. QuickPlot has been available 
for other TRS-80 and 1BM-PC compu- 
ters for several months. What Quick- 
Plot can do is to rapidly plot bar charts, 
line charts, and very interesting pie 
charts. The package includes a 25-page 
documentation booklet with copies of 
sample charts and a cassette with the 
programs on the first side and sample 
formats and data on the flip side. 

QuickPlot is a business graphic pack- 
age for the Model 100 and requires 
Radio Shack’s CGP-115 to plot the 
charts. The manual assumes you know 


very little about the operation of the 
computer and plotter and thereby makes 
the program exceptionally well suited 
for the businessman concerned with 
results and not programming techniques. 
The manual starts with the connections 
necessary for the plotter, a listing of the 
programs on the first side of the tape in 
order, and very detailed instructions on 
how to effectively load and use the soft- 
ware. To operate all the programs you 
must have the program “START,” which 
is the menu driver, and the respective 
programs for the pie charts (FPIE and 
PP1E), bar charts (FBAR, DBAR, and 
PBAR), and line charts (FLINE, 
DLINE, and PLINE). The first charac- 
ter of each name gives the function of 
the program: F is format, D is data, and 
P is plot. The manual cautions to put 
into memory only one chart’s programs 
at a time. One of the reasons is that 
START checks to see which programs 
are present in memory and auto-runs. 
The second reason is memory size. The 
pie chart programs consume approxi- 
mately 9K of memory without data and 
variable storage requirements. The bar 
chart programs are 15K while the line 
charts with 32 data points will leave just 
enough overhead to run. Before loading 
any of the programs, clean house, in- 
cluding all XXX. DO files. 

The documentation is quite good as it 
steps you through each format and data 
entry program necessary for plotting. 
One error in the text (corrected in later 
copies) is on Page 21, pie charting. 
PLINE should be PPIE. Once the pro- 
per programs are loaded, the screen will 
prompt you for 1) Create or Edit the 
format of the chart, 2) Create or Edit the 
data for the chart, 3) Plot, and 4) End. 
The formatting for the chart should be 
done first. After selecting “1” a second 
menu will appear asking whether you 
want to create, edit, plot, save, or return 
to menu. The first time, CREATE is the 
proper choice. Creating the format re- 
quires that you answer 16 to 18 blocks 
of questions about how you want the 
graph to look, including titles, group- 
ing of the data, keys to the plots and 
their locations, and line or bar colors. In 
addition, you can set the tick marks on 
both the X and Y axes, set the numerical 
range for each axis, and have at your 
option an overlay grid. Each formatted 
file is saved automatically when you 
enter the four-character file name. The 
software will add a two-character suffix 
to identify the file as a formatted file for 
the respective chart, ie XXXXFL.DO is 
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the formatted file for the line graph. If 
you make a mistake entering the format 
parameters or find that the graph needs 
to be changed after the plot is run, 
simply ask for EDIT on the second 
menu. After editing is completed, the 
file must be saved to upgrade the for- 
matted file. 

After the format is established, the 
data file is created. Here you are promp- 
ted to exceed the limits of the upper X 
and Y coordinates you formatted. After 
the data file is created, as with the for- 
mat files, editing is possible using the 
same techniques as for editing format 
files. At this point you are ready to try a 
plot. On the first try, I was able to make 
a beautiful pie chart of my son’s ex- 
penses. The computer plotted the per- 
centages, gave labels to the different sli- 
ces, colored each slice with two colors, 
and offset one slice. The pie charts will 
take approximately five minutes or more 
depending upon the number of sections 
you require as the manual points out. (It 
suggests taking a coffee break, or maybe 
a short vacation.) The line charts, the 


first time, caused a slight problem in the 
memory overflow area. 1 tried to enter 
too many data points, but soon came up 
with a nice chart showing high tempera- 
tures for Louisville and Mankato, Min- 
nesota. The line charts require only a 
couple of minutes. The bar graph opera- 
tion went as well as the pie chart. The 
bar chart speed depends upon the num- 
ber of groups and the subsets in each 
group. 

The manual includes several techni- 
cal notes in the back that perhaps 
should be read before formatting or 
entering data. Information on changing 
the number of data points, entering 
months for the X axis labels, and how to 
solve the out of memory problem with 
more than 32 points in the line chart 
programs are all detailed. 

The sample programs contained on 
the flip side of the tape are very visual 
and really show how QuickPlot per- 
forms. Spending a moment or two with 
the examples is strongly suggested if for 
no other reason than to observe the 
tremendous power of QuickPlot. By 


using the editing feature you can step 
through the data and formatting used in 
the examples. There is one quirk that 
could be easily changed; that is, to put 
the sample data in the same order as the 
BASIC programs on the first side. The 
pie chart programs are first on the first 
side, but the pie chart sample data are 
last on the flip side. 

If you have access to another TRS-80 
compue data files can be downloaded 
for use where more memory is required. 
This ability is really appreciated if you 
are gathering data out in the field and 
you run out of memory. 

If you need to do graphs and charts 
for your business or personal use, Com- 
puter Solutions has a best buy in Quick- 
Plot with very crisp looking plots and 
user-friendly software. 

(Computer Solutions Company, 901 
Embassy Square Boulevard, Louis- 
ville, KY 40299, $49) 

—Willis Rollins 


(continued from Page 5) 

Let’s look at the concept in terms of the “word processor” 
you got with the 100. For the purpose of taking notes, 
writing short memos and the like, it is a nice little system. 
Not too complicated, a few very good features (especially 
cut and paste) but something a lot less than the two full- 
blown word processors which are now available from third 
party vendors. 

What concerns me is that this “bundling” of software can 
have the effect of “chilling” the third party market for other 
programs. If you would like to compare two systems in 
another field, I think the reason for the success of the TRS- 
80 Color Computer and the lack of success of the TI-99 is 
simply the ease which third party vendors have had in break- 
ing into the CoCo market. T1 fought them; Tandy didn’t. 
And look where the Color Computer is today as compared 
to the TI. One is riding high, the other is down the drain. 

For the most part, “bundled” software will not be the best 
— simply because it is free. Someone who is selling some- 
thing for value will be able to do more with his product than 
someone who doesn’t. But 1 am concerned by the people 
who will not write word processors or database managers 
for the Portable Computer, simply because they think you 
already own one when you buy the machine. 

While Radio Shack has some excellent programs availa- 
ble for the Portable — and more to come — there are a lot ol 
excellent programs out there to be written. And these are the 
programs which will make the PoCo market an extremely 
viable one in the months ahead. Tve always felt good about 
Tandy’s willingness to allow the third party market to work 
for it. And 1 think this will again be one more mark of 
success for this computer system. 

For that matter, so long as we are peering into the 1984 
crystal ball, one of the areas that 1 see expanding for the 
Portable in the next year is in specialty programs. We all 
know that Tandy needs to be certain that there will be some 


sure market for anything they publish, so their market tends 
to be horizontal, as far as software is concerned. But 1 see a 
great market for vertical software — construction estimat- 
ing, stamp collecting databases, airplane navigation and the 
like. Tandy often sees these markets as too narrow for their 
marketing efforts — but they are certainly wide enough for 
many of you to employ your own expertise and a little 
programming ability to find a nice niche in the “computer 
business.” 

Finally, it would be inappropriate to close this message 
without saying thank you for your support for PCM in 1983. 
We look forward to working for and with you in 1984, and 
we wish you a happy, healthy and prosperous New Year, 

Lonnie Falk 


Back Issue Availability 

All back issues sell for the single issue cover price of $3. In 
addition, there is a $1.50 charge per issue for postage and 
handling within the United States, Canada and Mexico. 

VISA, MasterCard, and American Express accepted. 
Kentucky residents please add 5 percent state sales tax. 


Correction 

Dale Wheeler has brought to our attention an omission in 
his “Label Maker” program which appeared in our Novem- 
ber issue. A GOSUB was left out of Line 32 in Listing 2 (for 
parallel printers). The correct line follows. 

32 FQRZ=1TQ4:E*=C$<Z) +SPACE* (40-LEN <C$ ( Z 
)>>+D*<Z)iLPRINTE*jCHR*<13)|iCL-CL+l:NEX 
TZ»LPRINTCHR*U3) ;CHR*< 13 ) 5 sCL*CL+2s IFCL 
=>55THENG0SUB38;G0SUB18:G0T036ELSE36 
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The Rackseller 


ALABAMA 

Florence 

Madison 

ALASKA 

Fairbanks 

Kotzebue 

ARIZONA 

Phoenix 

Scottsdale 
Tucson 
CALIFORNIA 
Atwater 
Citrus Heights 
Half Moon Bay 
North 
Hollywood 
Sunnyvale 
CONNECTICUT 
Hartford 
DELAWARE 
Wilmington 
FLORIDA 
Ft. Lauderdale 
Miami 

Panama City 
Pensacola 
Tallahassee 
Winter Park 
GEORGIA 
Atlanta 
Columbus 
Trenton 
ILLINOIS 
Chicago 


Chicago 

Oakbrook 

INDIANA 

Elkhart 

Indianapolis 


Anderson News Co. 

Madison Books 

Electronic World 
Fairbanks News Agency 
Arctic Bookstore, Inc. 

Road Runner 
Computer Pro 
Softwareland Corp, 

Anderson News Co. 

Electro Brain 
Software Plus 
Strawflower Electronics 

Levity Distributors 
Computer Literacy 

The Aetna Life Club Store 

Normar Inc.— The Smoke Shop 

Software Connection 
Newsrack 

Computer Systems Group 
Anderson News Co, 

Anderson News Co. 

Independent Computer Systems 

Guild News Agency 
Muscogee News Co. 

The Phone Line 

Kroch's & Brentano's 
Jackson Street 
Kroch's & Brentano's 
Wabash Ave. 

Prairie News Agency 
Kroch's & Brentano's 

Elkhart City News & Book Store 
A— Computer Store 


Madison 

Scottsburg 

IOWA 

Davenport 

KANSAS 

Wichita 

KENTUCKY 

Benton 

Pikeville 

LOUISIANA 

Slidell 

MAINE 

South Portland 
MASSACHUSETTS 
Littleton 
Mdrlboro 
Woburn 
MICHIGAN 
Novi 

NEBRASKA 

Lincoln 

NEVADA 

Las Vegas 

NEW HAMPSHIRE 

Manchester 
Peterborough 
West Lebanon 
NEW JERSEY 
Hackensack 
Midland Park 
Pennsville 
NEW MEXICO 
Albuquerque 
Albuquerque 
NEW YORK 
Johnson City 
New York City 
NORTH CAROLINA 
Cary 

NORTH DAKOTA 

Fargo 


Arco Office Supplies 
Radio Shack of Scottsburg 

Interstate Book Store 

Amateur Radio Equipment Co. 
Lloyd's Radio 

Anderson Electronics 
Gus-Stan Enterprises 

Radio Shack 

Portland News Co. 

Computer Plus 
Radio Shack 

Microcon Software Centers 

Ml Software Dlst., Inc. 

Hobby Town 

Hurley Electronics 

Brookwrights 
Radio Shack 
Verham News Corp. 

Total Circulation Service 
Software City 

Dave's Electronic Radio Shack 

News and Bookstore 
Page One Newsstand 

Unicom Electronics 
Usercom System, Inc. 

It's Just For You, Inc. 

Computer Associates 


OHIO 

Cincinnati Softwarehouse 

Toledo Leo's 

Reitz Electronics, Inc. 

OREGON 


Eugene 

Medford 

Portland 

Roseburg 

Tigard 

PENNSYLVANIA 

Pleasant Hills 

SOUTH CAROLINA 

Greenville 

North 

Charleston 

TENNESSEE 

Antioch 

Chattanooga 

Knoxville 

Memphis 

Nashville 

Smyrna 


Libra Books, Inc. 

John's News Stand 
80-Plus 

Rainy Day Bookshop 
80- Plus of Tigard 

Pittsburgh Computer Store 

Palmetto News Co. 

The Green Dragon 

P.S. Computers 
Anderson News Co. 
Anderson News Co. 
Computer Center 
Mosko's Book Store 
Delker Electronics, Inc. 


TEXAS 

Austin 
Dallas 
Elgin 
Ft. Worth 

Irving 


Software & Things 
Micro Concepts, Inc. 
Homing Pigeon 
A & A International 
RFI Electronics 
Software Access 


WASHINGTON 

Blaine Compulit Dist. 

Richland C 8c J Electronics Computer Center 

Seattle Adams News 

WISCONSIN 


Appleton 

Janesville 

Milwaukee 

Portage 

CANADA; 

ALBERTA 


Badger Periodicals 
Book World 
Campus Comer 
Sam's Electronics 


Calgary Rainbow Software Services 

Edmonton Kelly's Software Distributors 

NOVA SCOTIA 

Halifax Atlantic News 


Also available at selected B. Dalton Bookseller stores in the United States and Canada. 



see and hear 
what’s new for your 

TRS- 80 ® 

Color 

Computer 


The Largest Color Computer Exhibition Under One Roof 


★ “CoCo Community” Breakfast 

★ Seminars On Many Subjects 

★ See All The Latest CoCo Products 


Cost: $12 Three-Day Ticket 
$ 8 One-Day Ticket 
$12 Breakfast Ticket 


HYATT-REGENCY LONG BEACH 


Sponsored by the RAINBOW 

The Premier Color Computer Magazine 


Information: Call (502) 228-4492 


TRS-80 is a registered Trademark of Tandy Com 


New Products 


Ml 00 Briefcase 

Switch & Mux, Inc,, of Merrimack, NH, 
has just released a new briefcase designed for 
the Model 100. 

The briefcase is made of aluminum with a 
vinyl covering and has a three-position com- 
bination lock. Inside the base of the brief- 
case there’s a felt-covered foam insert which 
has cutouts for the Model 100, cassette 
recorder, AC line adapter, acoustic coupler, 
and a Ni/Cad battery charger. The cover 
assembly contains flaps for documents, mic- 
rophone and special holders for four extra 
Ni/Cad batteries. 

The package includes the briefcase, foam 
insert, four Ni/Cad batteries and battery 
charger. The case is 21" x 15" x 4", weighs 
approximately six pounds and retails for 
$135. 

For more information, contact Switch & 
Mux, Inc., 10 Oakridge Ave., Merrimack, 
NH 03054, or phone (603)424-4161. 
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SAVE $120 



on the TRS-80 Model 100 with 8K RAM 


SPECTRUM PROJECTS 


Model 100 Cables 
CoCo to Model 1 00 Cables 

— $19.95 

CoCo to Model I, II, III, IV 

— $24.95 

PortCalc™ -Model 100 “elec- 
tronic spreadsheet” with 14 
column by 26 row workspace! 

—$69.95 


stock #26-3801 

$679 


For quick delivery call: 


Model 100 8K Memory 
Upgrade Module 

$69.95 

each 


CERTIFICATION 

SEAL 


93-15 86th DRIVE 
WOODHAVEN, NY 11421 
(212) 441-2807 

plus $5 shipping and handling 
N.Y. residents add sales tax " 


Call our Bulletin Board for free Model 100 programs. 

Now on line ...20 MEG. CORVUS HARD DISK DRIVE 


BBS #1 — (212) 441-3755 
BBS #2 — (212) 441-3766 
BBS #3 — (212) 441-5719 



*4 


AT LAST: THE WHOLE 
TRUTH ABOUT FLOPPIES. 

Amazing book reveals 
all! 

How to keep from 
brainwashing your disk 
so it never loses it’s 
memory. 

How fingerprints can 
actually damage disks. 
Unretouched Kirlian 
photographs of UFO’s 
(Unidentified Floppy 
Objects)! The incredible 
importance of making 
copies: the Department 
of Redundancy Depart- 
ment- and what goes on 
when it goes on! Power- 
ful secret methods that 
scientists claim can ac- 
tually prevent computer 
amnesia! All this, and 
much more . . . 

In short, it’s an 80- 
page plain-English, 
graphically stunning, 
pocket-sized definitive 
guide to the care and 
feeding of flexible disks. 

For The Book, ask your 
nearest computer store 
that sells Elephant’" 
disks, and bring along 
one and one half earth 
dollars. 

For the name of the 
store, ask us. 

ELEPHANT MEMORY 
SYSTEMS * Marketed 
exclusively by Leading 
Edge Products, Inc., 
Information Systems 
and Supplies Division, 

55 Providence Highway, 
Norwood, M A 02062. Call 
toll free 1-800-343-8413, 
In Massachusetts, call 
collect (617) 769-8150, 
Telex 951-624. 


